[C] cmuscheme fix

[Michael Sperber]

2007-08-23  Mike Sperber  <mike at xemacs.org>

	* cmuscheme.el (run-scheme): Fix argument-processing bug from
	2007-03-27 patch.

-- 
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla
-------------- next part --------------
Index: cmuscheme.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/scheme/cmuscheme.el,v
retrieving revision 1.4
diff -u -r1.4 cmuscheme.el
--- cmuscheme.el	27 Mar 2007 10:03:40 -0000	1.4
+++ cmuscheme.el	23 Aug 2007 07:02:22 -0000
@@ -210,11 +210,11 @@
   (interactive (list (if current-prefix-arg
 			 (read-string "Run Scheme: " scheme-program-name)
 			 scheme-program-name)
-		     (scheme-args-to-list
 		      (if current-prefix-arg
-			  (read-string "Command-line arguments: " 
-				       (scheme-list-to-args scheme-program-args))
-			scheme-program-args))))
+			  (scheme-args-to-list
+			   (read-string "Command-line arguments: " 
+					(scheme-list-to-args scheme-program-args)))
+			scheme-program-args)))
   (if (not (comint-check-proc "*scheme*"))
       (progn
 	(set-buffer (apply 'make-comint "scheme" cmd