suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove debugging code

Browse Source 
svn: r9029
This commit is contained in:
Sam Tobin-Hochstadt 2008-03-20 13:29:50 +00:00
parent f5e0fd35f5
commit afa5e930fe
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/match/emit-assm.scm
View File

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

2
collects/mzlib/private/match/observe-step.ss
View File

@ -6,7 +6,7 @@
(define (observe-step pre mpre mpost post) (define (observe-step pre mpre mpost post)
(define (call-obs ev . args) (define (call-obs ev . args)
(let ([obs (current-expand-observe)]) (let ([obs values #;(current-expand-observe)])
(if obs (if obs
(let ([evn (case ev (let ([evn (case ev
[(visit) 0] [(visit) 0]