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

committed rest of fix

Browse Source 
svn: r18672
This commit is contained in:
Matthias Felleisen 2010-03-30 17:41:31 +00:00
parent 04d1fa6a26
commit 0b33e15553
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/2htdp/universe.ss
View File

@ -80,7 +80,9 @@
key-event? ;; Any -> Boolean : KEY-EVTS key-event? ;; Any -> Boolean : KEY-EVTS
key=? ;; KEY-EVTS KEY-EVTS -> Boolean key=? ;; KEY-EVTS KEY-EVTS -> Boolean
;; IP : a string that points to a machine on the net ;; IP : a string that points to a machine on the net
LOCALHOST ;; IP )
(provide LOCALHOST ;; IP
) )
(provide-higher-order-primitive (provide-higher-order-primitive
@ -241,15 +243,18 @@
iworld? ;; Any -> Boolean iworld? ;; Any -> Boolean
iworld=? ;; World World -> Boolean iworld=? ;; World World -> Boolean
iworld-name ;; World -> Symbol iworld-name ;; World -> Symbol
iworld1 ;; sample worlds
iworld2
iworld3
;; type Bundle = (make-bundle [Listof World] Universe [Listof Mail]) ;; type Bundle = (make-bundle [Listof World] Universe [Listof Mail])
;; type Mail = (make-mail World S-expression) ;; type Mail = (make-mail World S-expression)
make-bundle ;; [Listof World] Universe [Listof Mail] -> Bundle make-bundle ;; [Listof World] Universe [Listof Mail] -> Bundle
bundle? ;; is this a bundle? bundle? ;; is this a bundle?
make-mail ;; World S-expression -> Mail make-mail ;; World S-expression -> Mail
mail? ;; is this a real mail? mail? ;; is this a real mail?
)
(provide
iworld1 ;; sample worlds
iworld2
iworld3
universe ;; <syntax> : see below universe ;; <syntax> : see below
) )