From def69615603e49bb17b09c7352295578f9dd67af Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 27 May 2014 21:30:57 -0400
Subject: Add v= procedure.

* 2d/vector2.scm (v=): New procedure.
---
 2d/vector2.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/2d/vector2.scm b/2d/vector2.scm
index c6beb57..bc425a1 100644
--- a/2d/vector2.scm
+++ b/2d/vector2.scm
@@ -54,6 +54,11 @@
   (vector2 (* r (cos theta))
            (* r (sin theta))))
 
+(define (v= v1 v2)
+  "Return #t if V1 and V2 are equivalent, #f otherwise."
+  (and (= (vx v1) (vx v2))
+       (= (vy v1) (vy v2))))
+
 (define (v+ . vectors)
   "Return the sum of all VECTORS."
   (define (add-vectors x y vectors)
-- 
cgit v1.2.3