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

hide big-bang startup code

Browse Source
This commit is contained in:
John Clements 2010-12-04 08:16:45 -08:00
parent 37349ca053
commit b51626933c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/2htdp/universe.rkt
View File

@ -12,7 +12,8 @@
-- make window resizable :: why -- make window resizable :: why
|# |#
(require (for-syntax "private/syn-aux.ss") (require (for-syntax "private/syn-aux.ss"
stepper/private/shared)
"private/syn-aux-aux.ss" "private/syn-aux-aux.ss"
"private/syn-aux.ss" "private/syn-aux.ss"
"private/check-aux.ss" "private/check-aux.ss"
@ -226,7 +227,9 @@
[_ (err '#'record? stx)])))] [_ (err '#'record? stx)])))]
[args [args
(->args 'big-bang stx #'w #'(clause ...) WldSpec ->rec? "world")]) (->args 'big-bang stx #'w #'(clause ...) WldSpec ->rec? "world")])
#`(run-it ((new-world (if #,rec? aworld% world%)) w #,@args)))])) (stepper-syntax-property
#`(run-it ((new-world (if #,rec? aworld% world%)) w #,@args))
'stepper-skip-completely #t))]))
(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")