Use identity (not structural) comparison to compare objects (+10%).

mfp · Mar 25, 2009 · d9c978c · d9c978c
1 parent 44b4597
commit d9c978c
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/rayTracer.ml b/rayTracer.ml
@@ -61,7 +61,7 @@ object (__)
          (* send shadow ray; if unshadowed, get inward emission value *)
          let emissionIn = match scene_m#intersection surfacePoint#position
                                   emitDirection (Some surfacePoint#hitObject) with
-             Some (hitObject, _) when hitObject <> emitter -> vZero
+             Some (hitObject, _) when hitObject != emitter -> vZero
            | _ -> (new SurfacePoint.obj emitter emitterPosition)#emission
                     surfacePoint#position ~-|emitDirection true in
 

diff --git a/spatialIndex.ml b/spatialIndex.ml
@@ -220,7 +220,7 @@ let rec intersection octree rayOrigin rayDirection ?(start = rayOrigin)
       (* define nearest-finder *)
       let findNearest nearest item = match lastHit with
          (* avoid false intersection with surface just come from *)
-          Some it when it = item -> nearest
+          Some it when it == item -> nearest
         | _ ->
             let _, _, nearestDistance = nearest in