stxclass: turn off debugging printing
svn: r13091
This commit is contained in:
parent
0acce3ead7
commit
b8db5490f0
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user