remove debugging code

svn: r9029

collects/mzlib/private/match/emit-assm.scm

@@ -82,8 +82,6 @@
          [(let/ec k (let ((fail (lambda () (_ f2)))) s2))
           (stx-equal? main-fail #'f2)
           (begin
-            (error "never happens")
-            (printf "got here!~n")
             (quasisyntax/loc
                 tst
               (let/ec k

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]