CVS update by michaels packages/xemacs-packages/scheme ...

[xemacs-cvs at xemacs.org]

  User: michaels
  Date: 07/12/28 14:00:18

  Modified:    packages/xemacs-packages/scheme ChangeLog cmuscheme.el
Log:
2007-12-28  Mike Sperber  <mike at xemacs.org>

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

Revision  Changes    Path
1.20      +5 -0      XEmacs/packages/xemacs-packages/scheme/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/scheme/ChangeLog,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -p -r1.19 -r1.20
--- ChangeLog	2007/08/23 19:42:16	1.19
+++ ChangeLog	2007/12/28 13:00:17	1.20
@@ -1,3 +1,8 @@
+2007-12-28  Mike Sperber  <mike at 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 at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.16 released.



1.6       +4 -1      XEmacs/packages/xemacs-packages/scheme/cmuscheme.el

Index: cmuscheme.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/scheme/cmuscheme.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- cmuscheme.el	2007/08/23 07:02:39	1.5
+++ cmuscheme.el	2007/12/28 13:00:17	1.6
@@ -171,7 +171,10 @@ Defaults to a regexp ignoring all inputs
 
 (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)