diff options
| author | David Thompson <dthompson2@worcester.edu> | 2017-11-12 21:37:48 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2017-11-12 21:37:48 -0500 |
| commit | df67033b839dc0765ecbee66217f077b4d0c986c (patch) | |
| tree | 506afebc1b96fa4e0a43341f8e9ef4dfba66ae55 | |
| parent | d989e2f2de53e73a078d66e8b19e4ed490dea29b (diff) | |
math: quaternion: Stop referncing inline procedure before it's defined.
* chickadee/math/quaternion.scm (with-new-quaternion): Build
quaternion manually instead of using make-null-quaternion.
| -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." |