(загрузить "file.scm") в новой среде на схеме - PullRequest
Новая
       46

(загрузить "file.scm") в новой среде на схеме

4 голосов
/ 17 марта 2011

MIT * Схема (load ...) Процедура , по-видимому, принимает в качестве среды параметр . Есть ли способ, которым я мог бы «клонировать» текущую среду и передать ее туда, чтобы я мог изолировать среду файла от своей собственной?

(Я посмотрел здесь , но ничего не нашел ...)

1 Ответ

3 голосов
/ 17 марта 2011

Как насчет этого? 

(define (clone-env env)
  (let ((bindings (environment-bindings env)))
    (make-top-level-environment (map car bindings)
                                (map cadr bindings))))

1 ]=> (define foo 1)

;Value: foo

1 ]=> (eq? (the-environment) (clone-env (the-environment)))

;Value: #f

Отредактировано, чтобы добавить:

Я не совсем уверен, что вы пытаетесь сделать, но вот что я сделал, чтобы проверить выше,Я создал файл foo.scm, содержащий: 

(set! foo 2)
(define baz (+ foo foo))
baz

Затем 

1 ]=> (define foo 1)

;Value: foo

1 ]=> (load "foo.scm" (clone-env (the-environment)))

;Loading "foo.scm"... done
;Value: 4

1 ]=> foo

;Value: 1

1 ]=> baz

;Unbound variable: baz
;To continue, call RESTART with an option number:
; (RESTART 3) => Specify a value to use instead of baz.
; (RESTART 2) => Define baz to a given value.
; (RESTART 1) => Return to read-eval-print level 1.

2 error>
...