Closes FB case 173 Fix arrows in hyper-literate. I Used a module-like scope when nesting the whole module body to allow overriding build-ins, as DrRacket doesn't draw the arrows properly when a (make-syntax-introducer) is used.

info.rkt

@@ -11,7 +11,8 @@
                "scribble-enhanced"
                "sexp-diff"
                "tr-immutable"
-               "typed-map-lib"))
+               "typed-map-lib"
+               "debug-scopes"))
 (define build-deps '("scribble-lib"
                      "racket-doc"
                      "rackunit-doc"

private/common.rkt

@@ -9,7 +9,8 @@
                      syntax/strip-context
                      syntax/srcloc
                      racket/struct
-                     syntax/srcloc))
+                     syntax/srcloc
+                     debug-scopes/named-scopes/exptime))
 
 (begin-for-syntax
   (define first-id #f)
@@ -151,18 +152,23 @@
 (define-syntax (continue stx)
   (syntax-case stx ()
     [(_self lang-module-begin . body)
-     (let ([expanded (local-expand 
+     (let ()
-                      (datum->syntax stx
+       (define expanded (local-expand 
-                                     `(,#'lang-module-begin . ,#'body)
+                         (datum->syntax stx
-                                     stx
+                                        `(,#'lang-module-begin . ,#'body)
-                                     stx)
+                                        stx
-                      'module-begin 
+                                        stx)
-                      (list))])
+                         'module-begin 
+                         (list)))
+       (define meta-language-nesting
+         ;; Use a module-like scope here, instead of (make-syntax-introducer),
+         ;; otherwise DrRacket stops drawing some arrows (why?).
+         (make-module-like-named-scope 'meta-language-nesting))
        (syntax-case expanded (#%plain-module-begin)
          [(#%plain-module-begin . expanded-body)
           #`(begin 
               . 
-              #,((make-syntax-introducer) #'expanded-body))]))]))
+              #,(meta-language-nesting #'expanded-body))]))]))
 
 (define-for-syntax ((make-module-begin submod?) stx)
   (syntax-parse stx