From 73907e1d3fdfa96ed61a2d10695ac45bdd525314 Mon Sep 17 00:00:00 2001
From: Stephen Chang <stchang@ccs.neu.edu>
Date: Wed, 12 Oct 2016 13:15:16 -0400
Subject: [PATCH] actually use unsyntax-id in racketmod0

---
 .../scribble/private/manual-scheme.rkt        | 21 ++++++++++---------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/scribble-lib/scribble/private/manual-scheme.rkt b/scribble-lib/scribble/private/manual-scheme.rkt
index 3321dcdf..f3718247 100644
--- a/scribble-lib/scribble/private/manual-scheme.rkt
+++ b/scribble-lib/scribble/private/manual-scheme.rkt
@@ -92,16 +92,17 @@
     [(_ #:file filename #:escape unsyntax-id lang rest ...)
      (with-syntax ([modtag (datum->syntax
                             #'here
-                            `(unsyntax (make-element
-                                        #f
-                                        (list (hash-lang)
-                                              spacer
-                                              ,(if (identifier? #'lang)
-                                                   `(as-modname-link
-                                                     ',#'lang
-                                                     (to-element ',#'lang)
-                                                     #f)
-                                                   #'(racket lang)))))
+                            (list #'unsyntax-id
+                                  `(make-element
+                                    #f
+                                    (list (hash-lang)
+                                          spacer
+                                          ,(if (identifier? #'lang)
+                                               `(as-modname-link
+                                                 ',#'lang
+                                                 (to-element ',#'lang)
+                                                 #f)
+                                               #'(racket lang)))))
                             #'lang)])
        (if (syntax-e #'filename)
            (quasisyntax/loc stx