From a77737e1e601980934a546a618893fa30f79080a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 4 Jul 2017 10:41:32 -0700 Subject: [PATCH] Update base.rkt --- pitfall/xenomorph/private/base.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pitfall/xenomorph/private/base.rkt b/pitfall/xenomorph/private/base.rkt index 32030dd2..e9464c07 100644 --- a/pitfall/xenomorph/private/base.rkt +++ b/pitfall/xenomorph/private/base.rkt @@ -60,7 +60,7 @@ [(output-port? port) port] [(not port) (open-output-bytes)] [else (raise-argument-error 'Xenomorph "output port or #f" port)])) - (define encode-result (inner (void) encode port val parent)) + (define encode-result (inner (void) encode op val parent)) (when (bytes? encode-result) (write-bytes encode-result op)) (when (not port) (get-output-bytes op)))