>>533
ありがとうございます。

(define reenter #f)
(define x 0)
(fluid-let ((x 1))
(call/cc (lambda (k) (set! reenter k)))
(set! x (+ x 1))
x)

までを foo.scm に書いて、その後、
gosh> (load "./foo.scm")
#t
gosh> x
0
gosh> (reenter '*)
*** IO-CLOSED-ERROR: I/O attempted on closed port: #<iport(closed) ./foo.scm 0x102
e7b60>
Stack Trace:
_______________________________________

となったので、つまずいてました。
ファイルに書かずに、全部 gosh> の状態(何ていうんでしょう？)から入力すれば
大丈夫なんですね。気がつきませんでした。でも、なぜ違いが出るのでしょうか？