From 6989b4f3398c48e2a8eb59cfd367952116e313fe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Fri, 20 Jan 2017 15:18:32 +0100 Subject: [PATCH] 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 | 7 ++++--- test/test-graph-type.rkt | 11 +++++++---- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/graph-info.hl.rkt b/graph-info.hl.rkt index 6fc93ed..6a6c450 100644 --- 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] - ...)))))))) + ...))))))) ; diff --git a/test/test-graph-type.rkt b/test/test-graph-type.rkt index c896f00..fef0e84 100644 --- 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