[types] temporarily switch from eduction to sequence until CLJS-1209 …

…is fixed
thi-ng · Apr 27, 2015 · ad819e7 · ad819e7
1 parent 59e5e9d
commit ad819e7
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/geom-types/src/aabb.org b/geom-types/src/aabb.org
@@ -208,7 +208,7 @@ front, back (see diagram below).
               (if rt [c d h g])
               (if tp [e f g h])
               (if bt [a d c b])]
-             (eduction (filter identity))
+             (sequence (filter identity)) ;; FIXME eduction
              (g/into (or mesh (bm/basic-mesh)))))))
 #+END_SRC
 

diff --git a/geom-types/src/cuboid.org b/geom-types/src/cuboid.org
@@ -193,7 +193,7 @@ front, back - assuming the vertex order given in the diagram.
               (if rt [c d h g])
               (if tp [e f g h])
               (if bt [a d c b])]
-             (eduction (filter identity))
+             (sequence (filter identity)) ;; FIXME eduction
              (g/into (or mesh (bm/basic-mesh)))))))
 #+END_SRC
 
@@ -233,7 +233,6 @@ Do not use, work in progress...
          (fn [acc f]
            (let [p' (g/closest-point (p/plane-from-points f) p)
                  d (g/dist-squared p p')]
-             (prn p' d)
              (if (< d (acc 1)) [p' d] acc)))
          [nil 1e+100])
         (first)))

diff --git a/geom-types/src/quad.org b/geom-types/src/quad.org
@@ -175,7 +175,7 @@ than 1.0.
            (if w [a2 d2 d a])
            (if b' [a2 b2 c2 d2])
            (if f [d c b a])]
-          (eduction
+          (sequence ;; FIXME eduction
            (if (neg? dp)
              (comp
               (filter identity)