diff options
author | David Thompson <dave@izanagi> | 2013-06-23 12:06:34 -0400 |
---|---|---|
committer | David Thompson <dave@izanagi> | 2013-06-23 12:06:34 -0400 |
commit | 810fbc96fcb2aad1113ba42cb43174b5fa50a9e0 (patch) | |
tree | 05f0947d75e4490b41f0ba96cdf3ea0fdb0565a1 | |
parent | bf159c84acc05d5565c418f01835d4ce7e4a8773 (diff) |
Fix normalize procedure.
-rw-r--r-- | 2d/vector.scm | 2 |
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) |