Closes FB case 168 Don't use /top-loc in graph-info, as the macro and its use are within the same file

graph-info.hl.rkt

@@ -297,8 +297,9 @@ data.
                                  _)))
              {~optional {~and prefab #:prefab}})
          #:with name/c (format-id #'name "~a/c" #'name)
-         (quasisyntax/top-loc (stx-car this-syntax)
-           #,(template
+         ;(quasisyntax/loc (stx-car this-syntax)
+         ;  #,
+         (template
               (begin
                 (struct name (?? parent) (field ...)
                   (?? transparent)
@@ -316,7 +317,7 @@ data.
                                          ((?? (?@ [parent-field parent-contract]
                                                   ...))
                                           [field contract]
-                                          ...))))))))
+                                          ...)))))))
 
        ;<hash-set/c>
        <printer>

test/test-graph-type.rkt

@@ -15,7 +15,10 @@
   #:invariant City.citizens._ ∈ City.streets._.houses._.owner
   #:invariant City.citizens._ ∋ City.streets._.houses._.owner)
 
-(begin-for-syntax
-  (require racket/pretty)
+(begin
+  (require (for-syntax racket/pretty))
+  (define-syntax (debg _stx)
     (parameterize ([pretty-print-columns 188])
-    (pretty-print (syntax-local-value #'g1))))
+      (pretty-print (syntax-local-value #'g1)))
+    #'(void))
+  (debg))