From 9e91cef8b3d10e7eab88cc16d425fefc36c7321d Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 5 Mar 2009 22:53:47 +0100 Subject: turn-on/off-geiser-mode commands added and used in scheme-mode-hook. --- scheme/guile/geiser/doc.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'scheme/guile') 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)) -- cgit v1.2.3