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

stxclass: removed debugging printf

Browse Source 
svn: r13327
This commit is contained in:
Ryan Culpepper 2009-01-30 20:08:44 +00:00
parent a01a517445
commit 778f5f985c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/stxclass/private/parse.ss
View File

@ -426,7 +426,7 @@
(define (pattern-commutes? p1 p2)
(let ([result (not (pattern-intersects? p1 p2))])
(when result
(when #f ;; result
(printf "commutes!\n ~s\n & ~s\n"
(syntax->datum (pattern-orig-stx p1))
(syntax->datum (pattern-orig-stx p2))))