opaque iworld structure

svn: r17962
This commit is contained in:
Matthias Felleisen 2010-02-03 22:49:12 +00:00
parent 8bc420da4c
commit 823bbd18c9

View File

@ -210,7 +210,7 @@
iworld3)
;; --- the server representation of a world ---
(define-struct iworld (in out name info) #:transparent)
(define-struct iworld (in out name info) #; #:transparent)
;; World = (make-iworld IPort OPort Symbol [Listof Sexp])
(define (iw* n) (make-iworld (current-input-port) (current-output-port) n '()))