27 lines
617 B
Racket
27 lines
617 B
Racket
#lang racket
|
|
|
|
(define-syntax (mk stx)
|
|
(syntax-case stx ()
|
|
[(_ x)
|
|
#`(define-syntax x
|
|
#,(make-prefab-struct 's (hash)))]))
|
|
(mk x)
|
|
|
|
#|
|
|
(require phc-adt
|
|
(lib "phc-graph/graph-type.hl.rkt"))
|
|
(adt-init)
|
|
|
|
#;(define-graph-type g1
|
|
[City [name : String]
|
|
[streets : (Listof Street)]
|
|
[citizens : (Listof Person)]]
|
|
[Street [name : String]
|
|
[houses : (Listof House)]]
|
|
[House [owner : Person]]
|
|
[Person [name : String]]
|
|
#:invariant City.citizens._ ∈ City.streets._.houses._.owner
|
|
#:invariant City.citizens._ ∋ City.streets._.houses._.owner)
|
|
|#
|
|
|