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

1
collects/profj/parser.ss
View File

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