From 5bea21e81ed516440e34e480f2c33ca41aa8c597 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:36 -0800
Subject: Import Upstream version 3a4

---
 getparam.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'getparam.scm')

diff --git a/getparam.scm b/getparam.scm
index da8ce04..21d7d39 100644
--- a/getparam.scm
+++ b/getparam.scm
@@ -104,7 +104,7 @@
 			(let ((str (string-copy (car alias))))
 			  (do ((i (+ -1 (string-length str)) (+ -1 i)))
 			      ((negative? i) (cons str (cdr alias)))
-			    (cond ((char=? #\ (string-ref str i))
+			    (cond ((char=? #\space (string-ref str i))
 				   (string-set! str i #\-))))))
 		       ((number? (car alias))
 			(set! positional? (car alias))
-- 
cgit v1.2.3