summaryrefslogtreecommitdiff
path: root/scheme/chicken
diff options
context:
space:
mode:
authorDan Leslie <dan@ironoxide.ca>2015-12-05 07:30:06 -0800
committerDan Leslie <dan@ironoxide.ca>2015-12-05 07:30:47 -0800
commitb801b7cfbf95695bd2184d23a631c7424f52a1b8 (patch)
tree0e785fb2dc104a377e9af1c177c0799037fe112b /scheme/chicken
parentf1f69cf0a60c6f70dee5745bbecced1a54393520 (diff)
downloadgeiser-guile-b801b7cfbf95695bd2184d23a631c7424f52a1b8.tar.gz
geiser-guile-b801b7cfbf95695bd2184d23a631c7424f52a1b8.tar.bz2
Right-most character of arguments was being cut
Diffstat (limited to 'scheme/chicken')
-rw-r--r--scheme/chicken/geiser/emacs.scm2
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))