From ff19b9a74db65ca858c7057213aece717e51e867 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 8 Nov 2013 22:47:05 -0500 Subject: [PATCH] fix custom deserialize-info The deserialize fallback fails on modules that contain both custom deserialize-info definitions and uses of serializable-struct. --- racket/collects/db/private/generic/sql-data.rkt | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/racket/collects/db/private/generic/sql-data.rkt b/racket/collects/db/private/generic/sql-data.rkt index ad7f0ea1dc..08d4b75060 100644 --- a/racket/collects/db/private/generic/sql-data.rkt +++ b/racket/collects/db/private/generic/sql-data.rkt @@ -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