[racket] evaluate string which contains many definitions

From: 김태윤 (kty1104 at gmail.com)
Date: Wed Nov 17 11:23:04 EST 2010

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)))
  (when (not (eof-object? eval-now))
    (begin (eval eval-now ns)    (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>

Posted on the users mailing list.