diff options
| -rw-r--r-- | chickadee/math/rect.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/chickadee/math/rect.scm b/chickadee/math/rect.scm index 2b94014..9e605d8 100644 --- a/chickadee/math/rect.scm +++ b/chickadee/math/rect.scm @@ -296,7 +296,9 @@ fit completely within RECT2." (define (vec2-clamp-to-rect v rect) "Return a new vec2 with the x and y coordinates of the vec2 V restricted so that they are within the bounds of RECT." - (vec2-clamp-to-rect! (vec2-copy v) rect)) + (let ((v* (vec2-copy v))) + (vec2-clamp-to-rect! v* rect) + v*)) (define (rect-clamp rect1 rect2) "Return a new rect that adjusts the location of RECT1 so that it is |