diff options
Diffstat (limited to 'scheme')
| -rw-r--r-- | scheme/chicken/geiser/emacs.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm index c5772bd..1041f57 100644 --- a/scheme/chicken/geiser/emacs.scm +++ b/scheme/chicken/geiser/emacs.scm @@ -399,7 +399,7 @@ (define (clean-arg arg) (let ((s (->string arg))) - (substring/shared s 0 (string-skip-right s char-set:digit)))) + (substring/shared s 0 (add1 (string-skip-right s char-set:digit))))) (define (collect-args args #!key (reqs? #t) (opts? #f) (keys? #f)) (when (not (null? args)) |