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

stepper updates

Browse Source 
svn: r8329
This commit is contained in:
John Clements 2008-01-15 06:21:54 +00:00
parent 62b063bb9b
commit bfdb90e5cb
1 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/lang/htdp-langs.ss
View File

@ -34,7 +34,10 @@
"private/set-result.ss" "private/set-result.ss"
"stepper-language-interface.ss" "stepper-language-interface.ss"
"debugger-language-interface.ss") "debugger-language-interface.ss"
stepper/private/shared)
(provide tool@) (provide tool@)
@ -549,16 +552,19 @@
,@body-exps)))))))] ,@body-exps)))))))]
[(require) [(require)
(set! state 'done-or-exn) (set! state 'done-or-exn)
(syntax (stepper-syntax-property
(let ([done-already? #f]) (syntax
(dynamic-wind (let ([done-already? #f])
void (dynamic-wind
(lambda () void
(dynamic-require ''#%htdp #f)) ;; work around a bug in dynamic-require (lambda ()
(lambda () (dynamic-require ''#%htdp #f)) ;; work around a bug in dynamic-require
(unless done-already? (lambda ()
(set! done-already? #t) (unless done-already?
(current-namespace (module->namespace ''#%htdp)))))))] (set! done-already? #t)
(current-namespace (module->namespace ''#%htdp)))))))
'stepper-skip-completely
#t)]
[(done-or-exn) [(done-or-exn)
(cond (cond
[saved-exn [saved-exn