(defvar scsh-program-name "scsh"
- "The program name and arguments to be invoked for the `run-scsh'
+ "The program name invoked by the `run-scsh' command.")
+(defvar scsh-program-args nil
+ "*Command-line arguments to `scsh-program-name'.")
+(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)
- (run-scheme scsh-program-name))
+ (read-string "Command-line arguments: "
+ (scheme-list-to-args scsh-program-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