summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dave@izanagi>2013-06-23 12:06:34 -0400
committerDavid Thompson <dave@izanagi>2013-06-23 12:06:34 -0400
commit810fbc96fcb2aad1113ba42cb43174b5fa50a9e0 (patch)
tree05f0947d75e4490b41f0ba96cdf3ea0fdb0565a1
parentbf159c84acc05d5565c418f01835d4ce7e4a8773 (diff)
Fix normalize procedure.
-rw-r--r--2d/vector.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/2d/vector.scm b/2d/vector.scm
index 1d4c33e..7dcbcb2 100644
--- a/2d/vector.scm
+++ b/2d/vector.scm
@@ -63,7 +63,7 @@
(define (normalize vector)
"Normalizes a vector."
- (let ((m (magnitude vector)))
+ (let ((m (mag vector)))
(vector-map (lambda (e) (/ e m)) vector)))
(define (vector-reduce proc default vector)