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

10
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,6 +552,7 @@
,@body-exps)))))))] ,@body-exps)))))))]
[(require) [(require)
(set! state 'done-or-exn) (set! state 'done-or-exn)
(stepper-syntax-property
(syntax (syntax
(let ([done-already? #f]) (let ([done-already? #f])
(dynamic-wind (dynamic-wind
@ -558,7 +562,9 @@
(lambda () (lambda ()
(unless done-already? (unless done-already?
(set! done-already? #t) (set! done-already? #t)
(current-namespace (module->namespace ''#%htdp)))))))] (current-namespace (module->namespace ''#%htdp)))))))
'stepper-skip-completely
#t)]
[(done-or-exn) [(done-or-exn)
(cond (cond
[saved-exn [saved-exn