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

svn: r10942

Browse Source
This commit is contained in:
Kathy Gray 2008-07-28 16:24:23 +00:00
parent 44b1499301
commit dd92c0a16f
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/combinator-parser/private-combinator/parser-sigs.ss
View File

@ -25,7 +25,8 @@
(syntax->list #`(id ... (syntax->list #`(id ...
#,@(map (lambda (e) #`(define-syntaxes #,@(map (lambda (e) #`(define-syntaxes
(#,(datum->syntax e (string->symbol (format "~a@" (syntax-e e))))) (#,(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 ...)))))])) (syntax->list #'(id ...)))))]))
(define-signature language-dictionary^ (misspelled misscap missclass)) (define-signature language-dictionary^ (misspelled misscap missclass))

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

@ -336,7 +336,7 @@
(define new-class (define new-class
(choose ((sequence (new name O_PAREN C_PAREN) id) (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")) "class instantiation"))
(define (new-array type-name) (define (new-array type-name)