Made define-syntax-block less restrictive about source of bindings.

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 ...)))])))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;