diff options
| -rw-r--r-- | chickadee/math/quaternion.scm | 3 |
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." |