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

oops, printf uncmmented

Browse Source 
svn: r11174
This commit is contained in:
Kathy Gray 2008-08-09 22:28:04 +00:00
parent 5fb2b7d215
commit ca1da6201b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/combinator-parser/private-combinator/errors.scm
View File

@ -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)