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 ...
#,@(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))

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

@ -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)