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

PR 10244

Browse Source 
svn: r14874
This commit is contained in:
Robby Findler 2009-05-19 20:58:46 +00:00
parent 237b225249
commit 0500571383
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/redex/private/reduction-semantics.ss
View File

@ -1359,7 +1359,7 @@
[(_ name (names rhs ...) ...)
(identifier? (syntax name))
(begin
(check-rhss-not-empty stx (cddr (syntax-e stx)))
(check-rhss-not-empty stx (cddr (syntax->list stx)))
(with-syntax ([((nt-names orig) ...) (pull-out-names 'define-language stx #'(names ...))])
(with-syntax ([(subst-names ...) (generate-temporaries (syntax->list #'(nt-names ...)))])
(syntax/loc stx
@ -1511,7 +1511,7 @@
(raise-syntax-error 'define-extended-langauge "expected an identifier" stx #'name))
(unless (identifier? (syntax orig-lang))
(raise-syntax-error 'define-extended-langauge "expected an identifier" stx #'orig-lang))
(check-rhss-not-empty stx (cdddr (syntax-e stx)))
(check-rhss-not-empty stx (cdddr (syntax->list stx)))
(let ([old-names (language-id-nts #'orig-lang 'define-extended-language)])
(with-syntax ([((new-nt-names orig) ...) (append (pull-out-names 'define-language stx #'(names ...))
(map (λ (x) #`(#,x #f)) old-names))])