diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-05 22:53:47 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-05 22:53:47 +0100 |
| commit | a96b437ed38a25e09543cdaf761d9574776754bc (patch) | |
| tree | 30e202905bd93dc8ee7495a27294ebb828636e2f /geiser/doc.scm | |
| parent | 6ff99367a56fc4ee6b8f9d3ab9906efc45d91937 (diff) | |
| download | geiser-guile-a96b437ed38a25e09543cdaf761d9574776754bc.tar.gz geiser-guile-a96b437ed38a25e09543cdaf761d9574776754bc.tar.bz2 | |
turn-on/off-geiser-mode commands added and used in scheme-mode-hook.
Diffstat (limited to 'geiser/doc.scm')
| -rw-r--r-- | geiser/doc.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/geiser/doc.scm b/geiser/doc.scm index f655fd6..578e6a3 100644 --- a/geiser/doc.scm +++ b/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)) |