From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 16 Jan 2016 21:13:08 +0000 (-0700)
Subject: src/planetarium/geometry.scm (3d-~=): Misplaced paren.
X-Git-Tag: mit-scheme-pucked-9.2.12~372
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=79d7045a0de6dae02bb908be8d684cd9a1ea4620;p=mit-scheme.git

src/planetarium/geometry.scm (3d-~=): Misplaced paren.
---

diff --git a/src/planetarium/geometry.scm b/src/planetarium/geometry.scm
index d7cba250d..f9364552a 100644
--- a/src/planetarium/geometry.scm
+++ b/src/planetarium/geometry.scm
@@ -276,5 +276,5 @@ USA.
 
 (define (3d-~= p1 p2 epsilon)
   (and (flo:~= (x p1) (x p2) epsilon)
-       (flo:~= (y p1) (y p2) epsilon))
-       (flo:~= (z p1) (z p2) epsilon))
\ No newline at end of file
+       (flo:~= (y p1) (y p2) epsilon)
+       (flo:~= (z p1) (z p2) epsilon)))
\ No newline at end of file