From b51626933cfa9f93684cf6daf802cadfd39eab8f Mon Sep 17 00:00:00 2001 From: John Clements Date: Sat, 4 Dec 2010 08:16:45 -0800 Subject: [PATCH] hide big-bang startup code --- collects/2htdp/universe.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/2htdp/universe.rkt b/collects/2htdp/universe.rkt index b7b67b0065..9c7b47815e 100644 --- a/collects/2htdp/universe.rkt +++ b/collects/2htdp/universe.rkt @@ -12,7 +12,8 @@ -- 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.ss" "private/check-aux.ss" @@ -226,7 +227,9 @@ [_ (err '#'record? stx)])))] [args (->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) (check-proc 'run-simulation f 1 "first" "one argument")