[nongnu] elpa/geiser-chicken 2481dfc 041/102: Right-most character of arguments was being cut

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 2481dfcfbd815c082df849abd5669543d7a7a26a
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Dan Leslie <dan@ironoxide.ca>

    Right-most character of arguments was being cut
---
 geiser/emacs.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index c5772bd..1041f57 100644
--- a/geiser/emacs.scm
+++ b/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))