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

added syntax property '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:25:29 -04:00
parent ac919568a6
commit c938fdf419
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/2htdp/universe.rkt
View File

@ -245,9 +245,11 @@
[(and (not (contains-clause? #'to-draw dom)) (not (contains-clause? #'on-draw dom))) [(and (not (contains-clause? #'to-draw dom)) (not (contains-clause? #'on-draw dom)))
(raise-syntax-error #f "expects a [to-draw handler] clause, missing" stx)] (raise-syntax-error #f "expects a [to-draw handler] clause, missing" stx)]
[else [else
(syntax-property
(stepper-syntax-property (stepper-syntax-property
#`(run-it ((new-world (if #,rec? aworld% world%)) w #,@args)) #`(run-it ((new-world (if #,rec? aworld% world%)) w #,@args))
'stepper-skip-completely #t)]))])) 'stepper-skip-completely #t)
'disappeared-use (map (lambda (x) (car (syntax->list x))) dom))]))]))
(define (run-simulation f) (define (run-simulation f)
(check-proc 'run-simulation f 1 "first" "one argument") (check-proc 'run-simulation f 1 "first" "one argument")