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

...

Browse Source 
svn: r7725
This commit is contained in:
John Clements 2007-11-14 17:08:50 +00:00
parent 6056159ad7
commit 90a8a691a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/stepper/private/model.ss
View File

@ -176,17 +176,17 @@
[#(exp #t) exp])])
finished-exps))
;; (printf "break called with break-kind: ~a ..." break-kind)
#;(fprintf (current-error-port) "break called with break-kind: ~a ..." break-kind)
(if (r:skip-step? break-kind mark-list render-settings)
(begin
;; (printf " but it was skipped!\n")
#;(fprintf (current-error-port) " but it was skipped!\n")
(when (or (eq? break-kind 'normal-break)
;; not sure about this...
(eq? break-kind 'nomal-break/values))
(set! held-exp-list skipped-step)))
(begin
;; (printf "and it wasn't skipped.\n")
#;(fprintf (current-error-port) "and it wasn't skipped.\n")
(case break-kind
[(normal-break normal-break/values)
(begin