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}})
#: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>

11
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)
(begin-for-syntax
(require racket/pretty)
(parameterize ([pretty-print-columns 188])
(pretty-print (syntax-local-value #'g1))))
(begin
(require (for-syntax racket/pretty))
(define-syntax (debg _stx)
(parameterize ([pretty-print-columns 188])
(pretty-print (syntax-local-value #'g1)))
#'(void))
(debg))