From c62c90fa7bff46ba5a77d663a2780156c75c1034 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Thu, 16 Jul 2009 19:04:51 +0000 Subject: [PATCH] fixed symbol/string bug; please propagate svn: r15463 --- collects/2htdp/private/universe.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/2htdp/private/universe.ss b/collects/2htdp/private/universe.ss index c69f032175..862a8d9b9f 100644 --- a/collects/2htdp/private/universe.ss +++ b/collects/2htdp/private/universe.ss @@ -208,9 +208,9 @@ ;; World = (make-iworld IPort OPort Symbol [Listof Sexp]) (define (iw* n) (make-iworld (current-input-port) (current-output-port) n '())) -(define iworld1 (iw* 'iworld1)) -(define iworld2 (iw* 'iworld2)) -(define iworld3 (iw* 'iworld3)) +(define iworld1 (iw* "iworld1")) +(define iworld2 (iw* "iworld2")) +(define iworld3 (iw* "iworld3")) (define (iworld=? u v) (check-arg 'iworld=? (iworld? u) 'iworld "first" u) @@ -226,7 +226,7 @@ (define (create-iworld i o info) (if (and (pair? info) (symbol? (car info))) (make-iworld i o (car info) (cdr info)) - (make-iworld i o (gensym 'iworld) info))) + (make-iworld i o (symbol->string (gensym 'iworld)) info))) ;; Player S-exp -> Void (define (iworld-send p sexp)