From 24f05f066e1cc04545e8f9b3f2d0c726babf0e69 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 12 Mar 2019 15:57:43 -0700 Subject: [PATCH] delouse --- xenomorph/xenomorph/versioned-struct.rkt | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/xenomorph/xenomorph/versioned-struct.rkt b/xenomorph/xenomorph/versioned-struct.rkt index 1a35089d..747c82b7 100644 --- a/xenomorph/xenomorph/versioned-struct.rkt +++ b/xenomorph/xenomorph/versioned-struct.rkt @@ -56,11 +56,7 @@ https://github.com/mbutterick/restructure/blob/master/src/VersionedStruct.coffee [(? x:versioned-struct?) (send field-object decode port parent)] [_ (parse-fields port res field-object)])) - (define/override (pre-encode val) - (cond - [(and (not (dict-has-key? val x:version-key)) (dict-has-key? val 'version)) - (dict-set val x:version-key (dict-ref val 'version))] - [else val])) + (define/override (pre-encode val) val) (define/override (encode field-data port [parent-arg #f]) (unless (dict? field-data)