[C] Fix for cmuscheme

2007-12-28 Mike Sperber <mike(a)xemacs.org&gt; * cmuscheme.el (scheme-args-to-list): If the command line is empty, don't create an empty argument. -- Cheers =8-} Mike Friede, Völkerverständigung und überhaupt blabla Index: cmuscheme.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/scheme/cmuscheme.el,v retrieving revision 1.5 diff -u -r1.5 cmuscheme.el --- cmuscheme.el 23 Aug 2007 07:02:39 -0000 1.5 +++ cmuscheme.el 28 Dec 2007 12:57:28 -0000 ＠＠ -171,7 +171,10 ＠＠ (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) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches