Commits

Anonymous committed 34f97ea

2009-10-21 Marcus Crestani <marcus@crestani.de>

* cmuscheme48.el (run-scsh): Follow 2007-03-27 change in
`run-scheme'.

Comments (0)

Files changed (2)

+2009-10-21  Marcus Crestani <marcus@crestani.de>
+
+	* cmuscheme48.el (run-scsh): Follow 2007-03-27 change in
+	`run-scheme'.
+
 2009-10-21  Marcus Crestani <marcus@crestani.de>
 
 	* cmuscheme.el (run-scheme): Initialize `scheme-program-name' and
 
 ;;;###autoload
 (defvar scsh-program-name "scsh"
-  "The program name and arguments to be invoked for the `run-scsh'
-command.")
+  "The program name invoked by the `run-scsh' command.")
 
 ;;;###autoload
-(defun run-scsh (arg)
+(defvar scsh-program-args nil
+  "*Command-line arguments to `scsh-program-name'.")
+
+;;;###autoload
+(defun run-scsh (cmd args)
   "Run inferiour `scsh'.  See the documentation to `run-scheme' after
-`cmuscheme' has been `require'd."
+  `cmuscheme' has been `require'd."
   (interactive (list (if current-prefix-arg
 			 (read-string "Run Scsh: " scsh-program-name)
-		       scsh-program-name)))
-  (run-scheme scsh-program-name))
+                       scsh-program-name)
+                     (if current-prefix-arg
+                         (scheme-args-to-list
+                          (read-string "Command-line arguments: " 
+                                       (scheme-list-to-args scsh-program-args)))
+                       scsh-program-args)))
+  (run-scheme cmd args))
 
 (define-key scheme-mode-map "\M-\C-x" 'scheme48-send-definition);gnu convention
 (define-key scheme-mode-map "\C-x\C-e" 'scheme48-send-last-sexp);gnu convention