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

diff --git a/src/planetarium/geometry.scm b/src/planetarium/geometry.scm
index d7cba250d62f4f71bf19a6406ddbd6474685eb1d..f9364552ad4d9f0b4967da95a24a26e8e5d6ade4 100644 (file)
--- 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