hi guys, I want to get a variable bidden from outside environment, such as the code below: 

-----------------------correct code------------------------

(eval-string "(write 123 fp)" (current-module))

-------------------------end----------------------------------

This code can run successfully.

But I want to use this trick in a procedure:

-----------------------wrong code------------------------------

(define (func)

   (let ((fp (open-output-file "/tmp/aaa")))

       (eval-string "(write 123 fp)" (current-module))

    ))

-----------------------end code------------------------------------

Guile will throw :

========================================

========================================

Is this a bug? Or I missed something?