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

minor rackety

Browse Source
This commit is contained in:
Robby Findler 2011-12-04 13:15:55 -06:00
parent f725066bf9
commit 447bd44a0c
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/redex/private/reduction-semantics.rkt
View File

@ -18,7 +18,7 @@
"underscore-allowed.rkt" "underscore-allowed.rkt"
syntax/boundmap syntax/boundmap
syntax/id-table syntax/id-table
scheme/base racket/base
racket/list racket/list
racket/match racket/match
racket/syntax racket/syntax
@ -2368,14 +2368,14 @@
(define-syntax lang-name (define-syntax lang-name
(make-set!-transformer (make-set!-transformer
(make-language-id (make-language-id
(case-lambda (λ (stx)
[(stx)
(syntax-case stx (set!) (syntax-case stx (set!)
[(set! x e) (raise-syntax-error (syntax-e #'form-name) "cannot set! identifier" stx #'e)] [(set! x e) (raise-syntax-error (syntax-e #'form-name) "cannot set! identifier" stx #'e)]
[(x e (... ...)) #'(define-language-name e (... ...))] [(x e (... ...))
#'(define-language-name e (... ...))]
[x [x
(identifier? #'x) (identifier? #'x)
#'define-language-name])]) #'define-language-name]))
'(all-names ...)))) '(all-names ...))))
(define define-language-name (language form-name lang-name (all-names ...) (names prods ...) ...))))))))])) (define define-language-name (language form-name lang-name (all-names ...) (names prods ...) ...))))))))]))