(require (quote scheme)) (defvar scheme-program-name "scheme" "\ *Program invoked by the `run-scheme' command.") (defvar scheme-band-name nil "\ *Band loaded by the `run-scheme' command.") (defvar scheme-program-arguments nil "\ *Arguments passed to the Scheme program by the `run-scheme' command.") (defvar xscheme-allow-pipelined-evaluation t "\ If non-nil, an expression may be transmitted while another is evaluating. Otherwise, attempting to evaluate an expression before the previous expression has finished evaluating will signal an error.") (defvar xscheme-startup-message "This is the Scheme process buffer. Type \\[advertised-xscheme-send-previous-expression] to evaluate the expression before point. Type \\[xscheme-send-control-g-interrupt] to abort evaluation. Type \\[describe-mode] for more information. " "String to insert into Scheme process buffer first time it is started. Is processed with `substitute-command-keys' first.") (defvar xscheme-signal-death-message nil "\ If non-nil, causes a message to be generated when the Scheme process dies.") (defun xscheme-evaluation-commands (keymap) (byte-code "ÁÂÃ#ˆÁÄÅ#ˆÁÆÇ#ˆÁÈÃ#ˆÁÉÊ#ˆÁËÌ#‡" [keymap define-key "" xscheme-send-definition "" advertised-xscheme-send-previous-expression "o" xscheme-send-buffer "z" " " xscheme-send-previous-expression "" xscheme-send-region] 9)) (defun xscheme-interrupt-commands (keymap) (byte-code "ÁÂÃ#ˆÁÄÅ#ˆÁÆÇ#ˆÁÈÉ#ˆÁÊË#‡" [keymap define-key "" xscheme-select-process-buffer "" xscheme-send-breakpoint-interrupt "" xscheme-send-control-g-interrupt "" xscheme-send-control-u-interrupt "" xscheme-send-control-x-interrupt] 8)) (xscheme-evaluation-commands scheme-mode-map) (xscheme-interrupt-commands scheme-mode-map) (defun run-scheme (command-line) "\ Run an inferior Scheme process. Output goes to the buffer `*scheme*'. With argument, asks for a command line." (interactive (byte-code " † à ƒ ÄÅ\"‚ )C‡" [default xscheme-process-command-line current-prefix-arg xscheme-default-command-line read-string "Run Scheme: "] 4)) (byte-code "Ĉ‰ˆÅÆ!!‡" [default xscheme-process-command-line current-prefix-arg command-line nil switch-to-buffer xscheme-start-process] 3)) (defun reset-scheme nil "\ Reset the Scheme process." (interactive) (byte-code "ÈÄÅ!?† Æ!Ç=?† ÈÉ!…. ÊË!ˆ…&