math: vector: Fix vec3-copy!

1 files changed, 4 insertions, 2 deletions

diff --git a/chickadee/math/vector.scm b/chickadee/math/vector.scm
index 3476326..3cc1a9a 100644
--- a/chickadee/math/vector.scm
+++ b/chickadee/math/vector.scm
@@ -210,8 +210,10 @@ polar coordinate (R, THETA) with an arbitrary ORIGIN point."
 
 (define (vec3-copy! source-vec3 target-vec3)
   "Copy SOURCE-VEC3 to TARGET-VEC3."
-  (set-vec3-x! target-vec3 (vec3-x source-vec3))
-  (set-vec3-y! target-vec3 (vec3-y source-vec3)))
+  (set-vec3! target-vec3
+             (vec3-x source-vec3)
+             (vec3-y source-vec3)
+             (vec3-z source-vec3)))
 
 (define (vec2-copy vec2)
   "Return a new vec2 that is a copy of VEC2."