load - （「file.scm」をロード）Schemeの新しい環境で

Question

MITスキームの(load ...)手順は明らかに環境をパラメータとして取り入れています。現在の環境を「複製」してそこに渡すことで、ファイルの環境を自分の環境から分離できる方法はありますか？

（私はここを見ましたが、何も見つかりませんでした...）

Answer 1

このようなものはどうですか？

(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>