suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed symbol/string bug; please propagate

Browse Source 
svn: r15463
This commit is contained in:
Matthias Felleisen 2009-07-16 19:04:51 +00:00
parent 68a2257f2a
commit c62c90fa7b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/2htdp/private/universe.ss
View File

@ -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)