[Chicken-hackers] [PATCH] show current keyword style in csi's , r command

[Felix]

The patch makes ",r" in csi show the currently active keyword style.


cheers,
felix

>From 9d94ae3e737d09c4c96625574edd83e2ea1dc057 Mon Sep 17 00:00:00 2001
From: felix <address@hidden>
Date: Mon, 24 Sep 2012 00:00:58 +0200
Subject: [PATCH] show keyword style in csi ,r output

---
 csi.scm |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/csi.scm b/csi.scm
index de17b74..8afcd79 100644
--- a/csi.scm
+++ b/csi.scm
@@ -506,6 +506,7 @@ EOF
                    Installation prefix:\t~A~%~
                    Extension path:  \t~A~%~
                    Include path:    \t~A~%~
+                   Keyword style:   \t~A~%~
                    Symbol-table load:\t~S~%  ~
                      Avg bucket length:\t~S~%  ~
                      Total symbol count:\t~S~%~
@@ -520,6 +521,7 @@ EOF
                    prefix
                    (repository-path)
                    ##sys#include-pathnames
+                   (symbol->string (keyword-style))
                    (shorten (vector-ref sinfo 0))
                    (shorten (vector-ref sinfo 1))
                    (vector-ref sinfo 2)
-- 
1.7.0.4