summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-05 22:53:47 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-05 22:53:47 +0100
commit9e91cef8b3d10e7eab88cc16d425fefc36c7321d (patch)
treebe7011aff12aa30b0c2521771b0642b7692f454c /scheme
parentefe21b1337f02095cf40791f8b0c237ae56c39a0 (diff)
downloadgeiser-chez-9e91cef8b3d10e7eab88cc16d425fefc36c7321d.tar.gz
geiser-chez-9e91cef8b3d10e7eab88cc16d425fefc36c7321d.tar.bz2
turn-on/off-geiser-mode commands added and used in scheme-mode-hook.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/doc.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm
index f655fd6..578e6a3 100644
--- a/scheme/guile/geiser/doc.scm
+++ b/scheme/guile/geiser/doc.scm
@@ -138,8 +138,8 @@
(let* ((letts (list->vector '(#\x #\y #\z #\u #\v #\w #\t)))
(len (vector-length letts))
(lett (lambda (n) (vector-ref letts (modulo n len)))))
- (map (lambda (n) (string->symbol (format "~A" (lett (+ fst n -1)))))
- (iota (max count 1)))))
+ (map (lambda (n) (string->symbol (format "~A" (lett (- n 1)))))
+ (iota (max count 1) fst))))
(define (arglist->args arglist)
`((required . ,(car arglist))