From 585808c8dc6916482a544efe59c425a13641f119 Mon Sep 17 00:00:00 2001
From: Dan Leslie <dan@ironoxide.ca>
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')

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