From ca1da6201b77602deb212db70a4647d462737cda Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Sat, 9 Aug 2008 22:28:04 +0000 Subject: [PATCH] oops, printf uncmmented svn: r11174 --- .../combinator-parser/private-combinator/errors.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/combinator-parser/private-combinator/errors.scm b/collects/combinator-parser/private-combinator/errors.scm index 4b1b634317..e5c6da9445 100644 --- a/collects/combinator-parser/private-combinator/errors.scm +++ b/collects/combinator-parser/private-combinator/errors.scm @@ -24,7 +24,7 @@ (list? (car (fail-type-src fail-type)))) (car (fail-type-src fail-type)) (fail-type-src fail-type))))]) - (printf "fail-type->message ~a~n" fail-type) + #;(printf "fail-type->message ~a~n" fail-type) (cond [(terminal-fail? fail-type) (collapse-message @@ -233,17 +233,17 @@ (narrow-opts chance-may-use chance-used-winners)] [winners (narrow-opts chance chance-may-winners)]) - (printf "all options: ~a~n" opts-list) - (printf "~a ~a ~a ~a ~a~n" + #;(printf "all options: ~a~n" opts-list) + #;(printf "~a ~a ~a ~a ~a~n" (map fail-type-name opts-list) (map fail-type-chance opts-list) (map fail-type-used opts-list) (map fail-type-may-use opts-list) (map composite opts-list)) - (printf "composite round: ~a ~a ~n" + #;(printf "composite round: ~a ~a ~n" (map fail-type-name composite-winners) (map composite composite-winners)) - (printf "final sorting: ~a~n" (map fail-type-name winners)) + #;(printf "final sorting: ~a~n" (map fail-type-name winners)) winners)) (define (first-n n lst)