Commits

Anonymous committed e7e4d92

2007-12-28 Mike Sperber <mike@xemacs.org>

* cmuscheme.el (scheme-args-to-list): If the command line is
empty, don't create an empty argument.

Comments (0)

Files changed (2)

+2007-12-28  Mike Sperber  <mike@xemacs.org>
+
+	* cmuscheme.el (scheme-args-to-list): If the command line is
+	empty, don't create an empty argument.
+
 2007-08-23  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.16 released.
 
 (defun scheme-args-to-list (string)
   (let ((where (string-match "[ \t]" string)))
-    (cond ((null where) (list string))
+    (cond ((null where)
+	   (if (string-equal "" string)
+	       '()
+	     (list string)))
 	  ((not (= where 0))
 	   (cons (substring string 0 where)
 		 (scheme-args-to-list (substring string (+ 1 where)