diff --git a/collects/unstable/define.rkt b/collects/unstable/define.rkt index 25edc99a0c..51937323be 100644 --- a/collects/unstable/define.rkt +++ b/collects/unstable/define.rkt @@ -54,20 +54,7 @@ (syntax-list decl.external ...)) "duplicate defined name" #'(define-syntaxes [decl.external ...] - ;; Easier way to ensure the internal names are bound than - ;; local-expand: bind them to an error macro and force the - ;; user to shadow them. - (let-syntax - ([decl.internal - (make-set!-transformer - (lambda (stx) - (raise-syntax-error #f - "transformer must be defined within define-syntax-block" - stx)))] - ...) - (block - body ... - (values decl.internal ...))))]))) + (block body ... (values decl.internal ...)))]))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;