stxclass: turn off debugging printing

svn: r13091
This commit is contained in:
Ryan Culpepper 2009-01-13 20:32:13 +00:00
parent 0acce3ead7
commit b8db5490f0

View File

@ -74,7 +74,7 @@
(with-syntax ([k k] [x x] [p p] [reason reason]
[fc-expr (frontier->expr fc)])
#`(let ([failcontext fc-expr])
(printf "failed: reason=~s, p=~s\n fc=~s\n" reason p failcontext)
#;(printf "failed: reason=~s, p=~s\n fc=~s\n" reason p failcontext)
(k x p 'reason failcontext))))
;; rhs->pks : RHS (listof SAttr) identifier -> (listof PK)