From 64a31bb0b39e2c5b95f232e61b3ce65a1d244bb9 Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Wed, 5 Sep 2007 00:35:25 +0000
Subject: [PATCH] commented out mred stuff to allow nightly testing.

svn: r7278
---
 collects/stepper/private/model.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/stepper/private/model.ss b/collects/stepper/private/model.ss
index 175aceb950..9445de3f87 100644
--- a/collects/stepper/private/model.ss
+++ b/collects/stepper/private/model.ss
@@ -49,7 +49,8 @@
            "macro-unwind.ss"
            "lifting.ss"
            ;; for breakpoint display
-           "display-break-stuff.ss")
+           ;; (commented out to allow nightly testing)
+           #;"display-break-stuff.ss")
 
   (define program-expander-contract
     ((-> void?) ; init
@@ -154,7 +155,8 @@
 
         (set! steps-received (+ steps-received 1))
         ;; have to be careful else this won't be looked up right away:
-        (when (getenv "PLTSTEPPERUNSAFE")
+        ;; (commented out to allow nightly tests to proceed, 2007-09-04
+        #;(when (getenv "PLTSTEPPERUNSAFE")
           (let ([steps-received/current steps-received])
             (run-on-drscheme-side
              (lambda ()