From 8e57c9c7b59a56b1155ec63712adbe022fd5f18f Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Thu, 7 Jun 2007 20:01:42 +0000 Subject: [PATCH] Turned off printfs svn: r6521 --- collects/profj/comb-parsers/parser-units.scm | 6 +++--- collects/profj/parser.ss | 1 - 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/profj/comb-parsers/parser-units.scm b/collects/profj/comb-parsers/parser-units.scm index f08e9ed549..e9e362b801 100644 --- a/collects/profj/comb-parsers/parser-units.scm +++ b/collects/profj/comb-parsers/parser-units.scm @@ -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) diff --git a/collects/profj/parser.ss b/collects/profj/parser.ss index cb5bb239ea..0f20252cf7 100644 --- a/collects/profj/parser.ss +++ b/collects/profj/parser.ss @@ -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))