suzanne.soy/phc-graph
1
0
Fork 0
Code Issues 24 Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Georges Dupéron 2017-01-20 15:18:32 +01:00
parent 2de609c523
commit 6989b4f339
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
graph-info.hl.rkt
View File

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

9
test/test-graph-type.rkt
View File

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