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

[xemacs-cvs at xemacs.org]

  User: michaels
  Date: 07/08/23 09:02:42

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

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

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

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/scheme/ChangeLog,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -p -r1.17 -r1.18
--- ChangeLog	2007/03/27 11:17:49	1.17
+++ ChangeLog	2007/08/23 07:02:39	1.18
@@ -1,3 +1,8 @@
+2007-08-23  Mike Sperber  <mike at xemacs.org>
+
+	* cmuscheme.el (run-scheme): Fix argument-processing bug from
+	2007-03-27 patch.
+
 2007-03-27  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.15 released.



1.5       +4 -4      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.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- cmuscheme.el	2007/03/27 10:03:40	1.4
+++ cmuscheme.el	2007/08/23 07:02:39	1.5
@@ -210,11 +210,11 @@ of `scheme-program-name').  Runs the hoo
   (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