Function: scheme-compile-file

scheme-compile-file is an interactive and byte-compiled function defined in cmuscheme.el.gz.

Signature

(scheme-compile-file FILE-NAME)

Documentation

Compile a Scheme file FILE-NAME in the inferior Scheme process.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/cmuscheme.el.gz
(defun scheme-compile-file (file-name)
  "Compile a Scheme file FILE-NAME in the inferior Scheme process."
  (interactive (comint-get-source "Compile Scheme file"
				  scheme-prev-l/c-dir/file
				  scheme-source-modes
				  nil)) ; nil because COMPILE doesn't
                                        ; need an exact name.
  (comint-check-source file-name) ; Check to see if buffer needs saved.
  (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
				       (file-name-nondirectory file-name)))
  (comint-send-string (scheme-proc) (concat "(compile-file \""
					    file-name
					    "\")\n")))