From 90a8a691a7cf00ed3bc332cf17af2f10be396522 Mon Sep 17 00:00:00 2001 From: John Clements Date: Wed, 14 Nov 2007 17:08:50 +0000 Subject: [PATCH] ... svn: r7725 --- collects/stepper/private/model.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/stepper/private/model.ss b/collects/stepper/private/model.ss index 0c3a1f0bdd..e235ff9dcb 100644 --- a/collects/stepper/private/model.ss +++ b/collects/stepper/private/model.ss @@ -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