From afa5e930fe45aee38b9fe43c21540ac336bde64e Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 20 Mar 2008 13:29:50 +0000 Subject: [PATCH] remove debugging code svn: r9029 --- collects/mzlib/private/match/emit-assm.scm | 4 +--- collects/mzlib/private/match/observe-step.ss | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/mzlib/private/match/emit-assm.scm b/collects/mzlib/private/match/emit-assm.scm index 6c6687205f..5e9377af45 100644 --- a/collects/mzlib/private/match/emit-assm.scm +++ b/collects/mzlib/private/match/emit-assm.scm @@ -81,9 +81,7 @@ (if (and #,tst tst-prev) true-act fail-act))] [(let/ec k (let ((fail (lambda () (_ f2)))) s2)) (stx-equal? main-fail #'f2) - (begin - (error "never happens") - (printf "got here!~n") + (begin (quasisyntax/loc tst (let/ec k diff --git a/collects/mzlib/private/match/observe-step.ss b/collects/mzlib/private/match/observe-step.ss index 10f31f71d3..55bbb8d1a8 100644 --- a/collects/mzlib/private/match/observe-step.ss +++ b/collects/mzlib/private/match/observe-step.ss @@ -6,7 +6,7 @@ (define (observe-step pre mpre mpost post) (define (call-obs ev . args) - (let ([obs (current-expand-observe)]) + (let ([obs values #;(current-expand-observe)]) (if obs (let ([evn (case ev [(visit) 0]