fix custom deserialize-info
The deserialize fallback fails on modules that contain both custom deserialize-info definitions and uses of serializable-struct.
This commit is contained in:
parent
4db57816fc
commit
ff19b9a74d
|
@ -40,6 +40,9 @@
|
|||
(lambda _ sql-null)
|
||||
(lambda () (error 'deserialize-sql-null "cannot have cycles"))))
|
||||
|
||||
(module+ deserialize-info
|
||||
(provide deserialize-info:sql-null-v0))
|
||||
|
||||
;; ----------------------------------------
|
||||
|
||||
;; Dates and times
|
||||
|
@ -184,6 +187,9 @@ byte. (Because that's PostgreSQL's binary format.) For example:
|
|||
make-sql-bits/bytes
|
||||
(lambda () (error 'deserialize-info:sql-bits-v0 "cycles not allowed"))))
|
||||
|
||||
(module+ deserialize-info
|
||||
(provide deserialize-info:sql-bits-v0))
|
||||
|
||||
;; align-sql-bits : bit-vector 'left/'right -> (values nat bytes 0)
|
||||
;; Formats a bit-vector in postgresql ('left) or mysql ('right) binary format.
|
||||
;; Returns number of bits, byte buffer, and starting point of data in buffer
|
||||
|
|
Loading…
Reference in New Issue
Block a user