[racket] evaluate string which contains many definitions

thank you so much!
but the following code doesn't seems to gonna be stop
what's wrong with me?
#lang scheme
(require racket/gui)
(require 2htdp/batch-io)
(define-namespace-anchor anchor)
(define ns (namespace-anchor->namespace anchor))
(define content (read-file "./eval.txt"))

(read (open-input-string content))
(define (eval-go)
  (define eval-now (read (open-input-string content)))
  eval-now
  (when (not (eof-object? eval-now))
    (begin (eval eval-now ns)    (eval-go)   )
  ))
(eval-go)
(eval 'a-value ns)
(eval '(b-func) ns)
(eval 'c-value ns)

#|
content of eval.txt
(define a-value 0)
(define (b-func)
  (* 2 2))
(define c-value 3)
|#


2010/11/18 David Van Horn <dvanhorn at ccs.neu.edu>

> On 11/17/10 10:55 AM, 김태윤 wrote:
>
>> I am sorry but could you be more specify?
>>
>> Try this <<I can't find "this" on your mail
>>
>
> That may be a gmail issue.  See the archive if you're having problems
> reading the email from Noel:
>
>   http://lists.racket-lang.org/users/archive/2010-November/042934.html
>
> David
>
> _________________________________________________
>  For list-related administrative tasks:
>  http://lists.racket-lang.org/listinfo/users
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20101118/3754c98c/attachment.html>