352 |
(defun scheme-load-file (file-name) |
(defun scheme-load-file (file-name) |
353 |
"Load a Scheme file FILE-NAME into the inferior Scheme process." |
"Load a Scheme file FILE-NAME into the inferior Scheme process." |
354 |
(interactive (comint-get-source "Load Scheme file: " scheme-prev-l/c-dir/file |
(interactive (comint-get-source "Load Scheme file: " scheme-prev-l/c-dir/file |
355 |
scheme-source-modes t)) ; T because LOAD |
scheme-source-modes t)) ; t because `load' |
356 |
; needs an exact name |
; needs an exact name |
357 |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
358 |
(setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name) |
(setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name) |
366 |
(interactive (comint-get-source "Compile Scheme file: " |
(interactive (comint-get-source "Compile Scheme file: " |
367 |
scheme-prev-l/c-dir/file |
scheme-prev-l/c-dir/file |
368 |
scheme-source-modes |
scheme-source-modes |
369 |
nil)) ; NIL because COMPILE doesn't |
nil)) ; nil because COMPILE doesn't |
370 |
; need an exact name. |
; need an exact name. |
371 |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
(comint-check-source file-name) ; Check to see if buffer needs saved. |
372 |
(setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name) |
(setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name) |