opaque iworld structure
svn: r17962
This commit is contained in:
parent
8bc420da4c
commit
823bbd18c9
|
@ -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 '()))
|
||||
|
|
Loading…
Reference in New Issue
Block a user