www

commit 6989b4f3398c48e2a8eb59cfd367952116e313fe
parent 2de609c523da5a9bf17c08e94d0f14a520387e61
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Fri, 20 Jan 2017 15:18:32 +0100

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

Diffstat:
M
graph-info.hl.rkt
 | 
7
++++---
M
test/test-graph-type.rkt
 | 
13
++++++++-----

2 files changed, 12 insertions(+), 8 deletions(-)
diff --git a/graph-info.hl.rkt b/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>
diff --git a/test/test-graph-type.rkt b/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)
-  (parameterize ([pretty-print-columns 188])
-    (pretty-print (syntax-local-value #'g1))))
-\ No newline at end of file
+(begin
+  (require (for-syntax racket/pretty))
+  (define-syntax (debg _stx)
+    (parameterize ([pretty-print-columns 188])
+      (pretty-print (syntax-local-value #'g1)))
+    #'(void))
+  (debg))
+\ No newline at end of file