69 lines
1.7 KiB
Scheme
69 lines
1.7 KiB
Scheme
; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING.
|
|
|
|
; Added really-eval-scanned-forms, which gives you noise control.
|
|
; -Olin 6/95.
|
|
|
|
; This file contains things that tie together the compiler and the
|
|
; run-time system.
|
|
|
|
|
|
; EVAL
|
|
|
|
(define (eval form p)
|
|
(compile-and-run-forms (list form) p #f
|
|
(lambda (template)
|
|
(invoke-template template p))
|
|
#f))
|
|
|
|
; LOAD-INTO - load file into package.
|
|
|
|
(define (load-into filename p)
|
|
(compile-and-run-file filename p
|
|
(lambda (template)
|
|
(invoke-template template p))
|
|
(current-output-port)))
|
|
|
|
; For scsh.
|
|
|
|
(define (load-quietly from p)
|
|
((if (string? from) compile-and-run-file compile-and-run-port)
|
|
from p
|
|
(lambda (template)
|
|
(invoke-template template p))
|
|
#f))
|
|
|
|
; Evaluate forms as if they came from the given file.
|
|
|
|
(define (eval-from-file forms p filename)
|
|
(compile-and-run-forms forms p filename
|
|
(lambda (template)
|
|
(invoke-template template p))
|
|
(current-output-port)))
|
|
|
|
; For ENSURE-LOADED.
|
|
|
|
(define (eval-scanned-forms forms p filename)
|
|
(really-eval-scanned-forms forms p filename (current-output-port)))
|
|
|
|
(define (really-eval-scanned-forms forms p filename noise-port)
|
|
(compile-and-run-scanned-forms forms p filename
|
|
(lambda (template)
|
|
(invoke-template template p))
|
|
noise-port))
|
|
|
|
(define (invoke-template template p)
|
|
(invoke-closure (make-closure template (package-uid p))))
|
|
|
|
|
|
; LOAD
|
|
|
|
(define (load filename . package-option)
|
|
(let ((p (if (null? package-option)
|
|
(interaction-environment)
|
|
(car package-option))))
|
|
;; (with-interaction-environment p
|
|
;; (lambda ()
|
|
(noting-undefined-variables p
|
|
(lambda ()
|
|
(load-into filename p)))));; ))
|