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

added syntax property to universe 'disappeared-use so that keywords in world clauses point to origin and have docs

Browse Source
This commit is contained in:
Matthias Felleisen 2011-08-03 14:29:33 -04:00
parent c938fdf419
commit 7de873f431
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/2htdp/universe.rkt
View File

@ -336,7 +336,9 @@
[(not (contains-clause? #'on-msg dom))
(raise-syntax-error #f "expects a on-msg clause, but found none" stx)]
[else ; (and (memq #'on-new dom) (memq #'on-msg dom))
#`(run-it ((new-universe universe%) u #,@args))]))]))
(syntax-property
#`(run-it ((new-universe universe%) u #,@args))
'disappeared-use (map (lambda (x) (car (syntax->list x))) dom))]))]))
;
;