nit

6 years ago · 4f912e125f
parent 309756456b
commit 4f912e125f
1 changed files with 3 additions and 3 deletions
--- 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)