From ad2abfb3c9e591c36c8f7937f35e42169ac7462a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 15 Jul 2013 22:37:49 -0400
Subject: Add docstring for vector-from-polar.

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

(limited to '2d')

diff --git a/2d/vector.scm b/2d/vector.scm
index bd14dd5..a87384c 100644
--- a/2d/vector.scm
+++ b/2d/vector.scm
@@ -82,5 +82,6 @@
                (loop (1+ i) (proc prev (vector-ref vector i))))))))
 
 (define (vector-from-polar r theta)
+  "Converts polar coordinates into a cartesian vector."
   (vector (* r (cos theta))
           (* r (sin theta))))
-- 
cgit v1.2.3