From a4549cb522e1d3bbf98cbbd353461c08f4c3b03f Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 9 Mar 2019 08:40:13 -0800 Subject: [PATCH] don't void results --- xenomorph/xenomorph/base.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/xenomorph/xenomorph/base.rkt b/xenomorph/xenomorph/base.rkt index 6482b026..d11a2989 100644 --- a/xenomorph/xenomorph/base.rkt +++ b/xenomorph/xenomorph/base.rkt @@ -11,7 +11,7 @@ (define x:parent-key 'x:parent) (define x:pointer-size-key 'x:ptr-size) (define x:pointers-key 'x:pointers) -(define x:pointer-offset-key 'x:ptr-offset) +(define x:pointer-offset-key 'x:ptr-offset) ;; formerly pointerOffset (define x:pointer-type-key 'x:ptr-type) (define x:val-key 'x:val) @@ -90,7 +90,7 @@ We don't make port-arg the last arg (similar to other Racket port funcs) because (define/pubment (encode val output-port [parent #f] . args) (match (inner (error 'xenomorph (format "encode not augmented in ~a" this)) encode (pre-encode val) output-port parent . args) [(? bytes? encode-result) (write-bytes encode-result output-port)] - [_ (void)])) + [other other])) (define/pubment (size [val #f] [parent #f] . args) (match (inner 0 size val parent . args)