I forgot embedded!
This commit is contained in:
parent
27002dfe7f
commit
feb6361029
|
@ -27,6 +27,7 @@
|
||||||
(for/hash [((k v) (in-hash preservable))]
|
(for/hash [((k v) (in-hash preservable))]
|
||||||
(values (*->preserve k) (*->preserve v))))])
|
(values (*->preserve k) (*->preserve v))))])
|
||||||
#:defaults ([float? (define (->preserve preservable) preservable)]
|
#:defaults ([float? (define (->preserve preservable) preservable)]
|
||||||
|
[embedded? (define (->preserve preservable) preservable)]
|
||||||
[record?
|
[record?
|
||||||
(define/generic *->preserve ->preserve)
|
(define/generic *->preserve ->preserve)
|
||||||
(define (->preserve preservable)
|
(define (->preserve preservable)
|
||||||
|
|
Loading…
Reference in New Issue