diff options
| -rw-r--r-- | chickadee/math/rect.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/chickadee/math/rect.scm b/chickadee/math/rect.scm index 84e743d..cd83e2e 100644 --- a/chickadee/math/rect.scm +++ b/chickadee/math/rect.scm @@ -324,8 +324,9 @@ its current location." "Return a new rect based on RECT but grown by WIDTH on the x axis and HEIGHT on the y axis while keeping the rect centered around the same point." - (with-new-rect rect - (rect-inflate! rect width height))) + (with-new-rect new + (rect-copy! rect new) + (rect-inflate! new width height))) (define (rect-union rect1 rect2) "Return a new rect that completely covers the area of RECT1 and |