From 4f912e125f39f586ad9ebcd2a438b64c5e9709a6 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 5 Jan 2019 17:26:17 -0800 Subject: [PATCH] nit --- quad/quad/position.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/quad/quad/position.rkt b/quad/quad/position.rkt index 875132bb..09d44f7d 100644 --- a/quad/quad/position.rkt +++ b/quad/quad/position.rkt @@ -84,11 +84,11 @@ (set-quad-origin! q (if previous-end-pt (pt- previous-end-pt (in-point q)) (in-point q))) - (for/fold ([pt (inner-point q)]) + (for/fold ([pt (inner-point q)] + #:result q) ([q (in-list (quad-elems q))] #:when (quad? q)) - (out-point (position q pt))) - q) + (out-point (position q pt)))) (module+ test (require rackunit)