From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 26 Oct 2011 03:55:20 +0000 (-0400)
Subject: Inline find_containing_tetrahedron.
X-Git-Tag: 0.0.1~78
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=71c69c67074e6eb6ce7520739bc729691525b20b;p=spline3.git

Inline find_containing_tetrahedron.
---

diff --git a/src/Cube.hs b/src/Cube.hs
index 3c82f67..11762a5 100644
--- a/src/Cube.hs
+++ b/src/Cube.hs
@@ -620,6 +620,7 @@ in_left_half cube (Point _ y _) =
 --   This can throw an exception, but the use of 'head' might
 --   save us some unnecessary computations.
 --
+{-# INLINE find_containing_tetrahedron #-}
 find_containing_tetrahedron :: Cube -> Point -> Tetrahedron
 find_containing_tetrahedron cube p =
   candidates `V.unsafeIndex` (fromJust lucky_idx)