diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2015-12-05 07:32:37 -0800 |
|---|---|---|
| committer | Dan Leslie <dan@ironoxide.ca> | 2015-12-05 07:32:37 -0800 |
| commit | 585808c8dc6916482a544efe59c425a13641f119 (patch) | |
| tree | 0246dcc7f514be759b43f85738df735885ab8a2e /scheme/chicken | |
| parent | b801b7cfbf95695bd2184d23a631c7424f52a1b8 (diff) | |
| download | geiser-guile-585808c8dc6916482a544efe59c425a13641f119.tar.gz geiser-guile-585808c8dc6916482a544efe59c425a13641f119.tar.bz2 | |
No longer show arguments as strings.
That was annoying.
Diffstat (limited to 'scheme/chicken')
| -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 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)) |