From dd92c0a16fe4ef148d55f78b4d46521bd87c7ad9 Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Mon, 28 Jul 2008 16:24:23 +0000 Subject: [PATCH] svn: r10942 --- collects/combinator-parser/private-combinator/parser-sigs.ss | 3 ++- collects/profj/comb-parsers/parser-units.scm | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/combinator-parser/private-combinator/parser-sigs.ss b/collects/combinator-parser/private-combinator/parser-sigs.ss index 435d677d84..e2f2f35aa4 100644 --- a/collects/combinator-parser/private-combinator/parser-sigs.ss +++ b/collects/combinator-parser/private-combinator/parser-sigs.ss @@ -25,7 +25,8 @@ (syntax->list #`(id ... #,@(map (lambda (e) #`(define-syntaxes (#,(datum->syntax e (string->symbol (format "~a@" (syntax-e e))))) - (values (syntax-id-rules () [_ #'(eta #,e)])))) + (values (syntax-id-rules () + [_ (eta #,e)])))) (syntax->list #'(id ...)))))])) (define-signature language-dictionary^ (misspelled misscap missclass)) diff --git a/collects/profj/comb-parsers/parser-units.scm b/collects/profj/comb-parsers/parser-units.scm index d69e58183e..145a5a3b26 100644 --- a/collects/profj/comb-parsers/parser-units.scm +++ b/collects/profj/comb-parsers/parser-units.scm @@ -336,7 +336,7 @@ (define new-class (choose ((sequence (new name O_PAREN C_PAREN) id) - (sequence (new name O_PAREN (comma-sep (eta expression) "arguments") C_PAREN) id)) + (sequence (new name O_PAREN (comma-sep expression@ #;(eta expression) "arguments") C_PAREN) id)) "class instantiation")) (define (new-array type-name)