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:
Ryan Culpepper 2013-11-08 22:47:05 -05:00
parent 4db57816fc
commit ff19b9a74d

View File

@ -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