From 28a9b788443623940fb1a8b19732bc7da367f465 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 21 May 2019 20:31:28 -0700 Subject: [PATCH] pre-encode during size --- xenomorph/xenomorph/base.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/xenomorph/xenomorph/base.rkt b/xenomorph/xenomorph/base.rkt index c790784f..d04088fc 100644 --- a/xenomorph/xenomorph/base.rkt +++ b/xenomorph/xenomorph/base.rkt @@ -58,7 +58,7 @@ We don't make port-arg the last arg (similar to other Racket port funcs) because (unless port-arg (get-output-bytes port))) (define (size xo [val #f] #:parent [parent #f] . args) - (send xo x:size val parent . args)) + (send xo x:size (and val (send xo pre-encode val)) parent . args)) (define (xenomorphic-type? x) (is-a? x x:base%)) (define xenomorphic? xenomorphic-type?)