From 76bdd05167f51d995cfd6e991b6ba9a56140e434 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 3 Nov 2006 20:27:39 +0000 Subject: [PATCH] removed debugging code svn: r4766 --- collects/stepper/private/model.ss | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/collects/stepper/private/model.ss b/collects/stepper/private/model.ss index 0e656992d8..4db6f01b94 100644 --- a/collects/stepper/private/model.ss +++ b/collects/stepper/private/model.ss @@ -47,10 +47,9 @@ "marks.ss" "model-settings.ss" "macro-unwind.ss" - "lifting.ss" + "lifting.ss" ;; for breakpoint display - "display-break-stuff.ss" - (file "/Users/clements/clements/scheme-scraps/eli-debug.ss")) + "display-break-stuff.ss") (define program-expander-contract ((-> void?) ; init @@ -302,17 +301,16 @@ returned-value-list)] [else (error 'break "unknown label on break")])))))) - + (define maybe-lift (if (render-settings-lifting? render-settings) lift ;; ... oh dear; model.ss should disable the double-break & late-let break when lifting is off. (lambda (stx dont-care) (list stx)))) - + (define (step-through-expression expanded expand-next-expression) (let* ([annotated (a:annotate expanded break track-inferred-names? language-level)]) - (>>> "annotation complete") (eval-syntax annotated) (expand-next-expression)))