From 447bd44a0cf7a60460ee2ff10aee1c1eb1fb3b3e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 4 Dec 2011 13:15:55 -0600 Subject: [PATCH] minor rackety --- collects/redex/private/reduction-semantics.rkt | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/collects/redex/private/reduction-semantics.rkt b/collects/redex/private/reduction-semantics.rkt index d384888941..bbfb18d3b6 100644 --- a/collects/redex/private/reduction-semantics.rkt +++ b/collects/redex/private/reduction-semantics.rkt @@ -18,7 +18,7 @@ "underscore-allowed.rkt" syntax/boundmap syntax/id-table - scheme/base + racket/base racket/list racket/match racket/syntax @@ -2368,14 +2368,14 @@ (define-syntax lang-name (make-set!-transformer (make-language-id - (case-lambda - [(stx) - (syntax-case stx (set!) - [(set! x e) (raise-syntax-error (syntax-e #'form-name) "cannot set! identifier" stx #'e)] - [(x e (... ...)) #'(define-language-name e (... ...))] - [x - (identifier? #'x) - #'define-language-name])]) + (λ (stx) + (syntax-case stx (set!) + [(set! x e) (raise-syntax-error (syntax-e #'form-name) "cannot set! identifier" stx #'e)] + [(x e (... ...)) + #'(define-language-name e (... ...))] + [x + (identifier? #'x) + #'define-language-name])) '(all-names ...)))) (define define-language-name (language form-name lang-name (all-names ...) (names prods ...) ...))))))))]))