From d4c038f3a283d6c1ab3d061884c7fb62dc3e210d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 3 Jul 2017 14:13:16 -0700 Subject: [PATCH] base --- pitfall/restructure/private/base.rkt | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/pitfall/restructure/private/base.rkt b/pitfall/restructure/private/base.rkt index 64ba8138..7e4840fb 100644 --- a/pitfall/restructure/private/base.rkt +++ b/pitfall/restructure/private/base.rkt @@ -2,15 +2,15 @@ (require racket/class sugar/class racket/generic racket/private/generic-methods) (provide (all-defined-out)) -(define-generics encodable - (decode encodable stream [parent]) - (encode encodable stream [val] [parent])) +(define-generics codable + (decode codable stream [parent]) + (encode codable stream [val] [parent])) -(define encodable<%> +(define codable<%> (interface* () - ([(generic-property gen:encodable) - (generic-method-table gen:encodable + ([(generic-property gen:codable) + (generic-method-table gen:codable (define (decode o stream [parent #f]) (send o decode stream parent)) (define (encode o stream [val #f] [parent #f]) (send o encode stream val parent)))]))) @@ -36,7 +36,7 @@ (define RestructureBase - (class* object% (encodable<%> sizable<%> dumpable<%>) + (class* object% (codable<%> sizable<%> dumpable<%>) (super-new) (field [_hash (make-hash)] [_list null])