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

Turned off printfs

Browse Source 
svn: r6521
This commit is contained in:
Kathy Gray 2007-06-07 20:01:42 +00:00
parent 9641bacc50
commit 8e57c9c7b5
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/profj/comb-parsers/parser-units.scm
View File

@ -66,7 +66,7 @@
abstract native private protected public static strictfp transient volatile)))
(define (close-to-keyword? t arg)
(printf "close-to-keyword ~a ~a~n" t arg)
;(printf "close-to-keyword ~a ~a~n" t arg)
(and (string? t)
(member t (select-words (string->symbol arg)))))
@ -311,8 +311,8 @@
"literal expression"))
(define (new-class class-name expr)
(choose ((sequence (new class-name O_PAREN C_PAREN) id)
(sequence (new class-name O_PAREN (comma-sep expr "arguments") C_PAREN) id))
(choose ((sequence (new class-name O_PAREN C_PAREN) id "class instantiation")
(sequence (new class-name O_PAREN (comma-sep expr "arguments") C_PAREN) id "class instantiation"))
"class instantiation"))
(define (new-array type-name expr)

1
collects/profj/parser.ss
View File

@ -39,7 +39,6 @@
(if (new-parser?)
(lambda ()
(let ([result (!!! (parser lexed loc))])
(printf "Calling new parser ~a ~n" result)
(if (list? result)
(raise-read-error (cadr result)
(car (car result))