From 585808c8dc6916482a544efe59c425a13641f119 Mon Sep 17 00:00:00 2001 From: Dan Leslie Date: Sat, 5 Dec 2015 07:32:37 -0800 Subject: No longer show arguments as strings. That was annoying. --- scheme/chicken/geiser/emacs.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scheme/chicken/geiser') diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm index 1041f57..062e2a7 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 (add1 (string-skip-right s char-set:digit))))) + (string->symbol (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)) -- cgit v1.2.3