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

reversed reviosion 10942

Browse Source 
svn: r10945
This commit is contained in:
Eli Barzilay 2008-07-28 18:02:51 +00:00
parent 6106b5ad7d
commit 73d422d542
2 changed files with 2 additions and 3 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,8 +25,7 @@
(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 () (values (syntax-id-rules () [_ #'(eta #,e)]))))
[_ (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 expression@ #;(eta expression) "arguments") C_PAREN) id)) (sequence (new name O_PAREN (comma-sep (eta expression) "arguments") C_PAREN) id))
"class instantiation")) "class instantiation"))
(define (new-array type-name) (define (new-array type-name)