From 73d422d542f481890a839519634cb4dc765ead61 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 28 Jul 2008 18:02:51 +0000 Subject: [PATCH] reversed reviosion 10942 svn: r10945 --- collects/combinator-parser/private-combinator/parser-sigs.ss | 3 +-- collects/profj/comb-parsers/parser-units.scm | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/combinator-parser/private-combinator/parser-sigs.ss b/collects/combinator-parser/private-combinator/parser-sigs.ss index e2f2f35aa4..435d677d84 100644 --- a/collects/combinator-parser/private-combinator/parser-sigs.ss +++ b/collects/combinator-parser/private-combinator/parser-sigs.ss @@ -25,8 +25,7 @@ (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 145a5a3b26..d69e58183e 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 expression@ #;(eta expression) "arguments") C_PAREN) id)) + (sequence (new name O_PAREN (comma-sep (eta expression) "arguments") C_PAREN) id)) "class instantiation")) (define (new-array type-name)