From 810fbc96fcb2aad1113ba42cb43174b5fa50a9e0 Mon Sep 17 00:00:00 2001
From: David Thompson <dave@izanagi>
Date: Sun, 23 Jun 2013 12:06:34 -0400
Subject: Fix normalize procedure.

---
 2d/vector.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to '2d/vector.scm')

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)
-- 
cgit v1.2.3