From e3e6664ec37cc89c565bc5e8833bd0a69d66f81d Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 27 Feb 2018 12:44:31 -0800 Subject: [PATCH] default to origin --- quad/quad/position.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/quad/quad/position.rkt b/quad/quad/position.rkt index e9d112af..698a1726 100644 --- a/quad/quad/position.rkt +++ b/quad/quad/position.rkt @@ -45,7 +45,7 @@ (pt+ (origin q) (anchor->point q (out q) signal))) ; no offset because end-point is calculated without padding -(define/contract (position q [previous-end-pt (pt 0 0)]) +(define/contract (position q [previous-end-pt (origin q)]) ((quad?) (point?) . ->* . quad?) (set-origin! q (pt- previous-end-pt (in-point q))) (for/fold ([pt (inner-point q)])