From b8db5490f0b9890c83d39aaad3db416b7bc5a123 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 13 Jan 2009 20:32:13 +0000 Subject: [PATCH] stxclass: turn off debugging printing svn: r13091 --- collects/macro-debugger/stxclass/private/parse.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/macro-debugger/stxclass/private/parse.ss b/collects/macro-debugger/stxclass/private/parse.ss index 967678ba77..c178bb0150 100644 --- a/collects/macro-debugger/stxclass/private/parse.ss +++ b/collects/macro-debugger/stxclass/private/parse.ss @@ -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)