summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/math/quaternion.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/chickadee/math/quaternion.scm b/chickadee/math/quaternion.scm
index 893ccd7..4df4ffd 100644
--- a/chickadee/math/quaternion.scm
+++ b/chickadee/math/quaternion.scm
@@ -54,7 +54,8 @@
(f32vector-set! (unwrap-quaternion q) i x))
(define-syntax-rule (with-new-quaternion name body ...)
- (let ((name (make-null-quaternion))) body ... name))
+ (let ((name (wrap-quaternion (f32vector 0.0 0.0 0.0 0.0) #f)))
+ body ... name))
(define-inlinable (quaternion x y z w)
"Return a new quaternion with values X, Y, Z, and W."