From 01ca66a40e54df86920e5a1bed98592025511cd2 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 4 Jul 2017 10:49:25 -0700 Subject: [PATCH] Update array.rkt --- pitfall/xenomorph/private/array.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/pitfall/xenomorph/private/array.rkt b/pitfall/xenomorph/private/array.rkt index 3b8d2763..6acfab70 100644 --- a/pitfall/xenomorph/private/array.rkt +++ b/pitfall/xenomorph/private/array.rkt @@ -54,9 +54,8 @@ https://github.com/mbutterick/restructure/blob/master/src/Array.coffee (raise-argument-error 'Array:encode "list or countable" array))) (define (encode-items ctx) - (define results (for/list ([item (in-list (countable->list array))]) + (for ([item (in-list (countable->list array))]) (send type encode port item ctx))) - (unless port (apply bytes-append results))) (cond [(NumberT? len) (define ctx (mhash 'pointers null