removed debugging code

svn: r4766
This commit is contained in:
Eli Barzilay 2006-11-03 20:27:39 +00:00
parent 4c94fd0305
commit 76bdd05167

View File

@ -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)))