core: Add the shuffler words but without primitives.

[factor.git] / extra / euler / b-rep / b-rep.factor

diff --git a/extra/euler/b-rep/b-rep.factor b/extra/euler/b-rep/b-rep.factor
index 57234f5659f247901e1c31a6b5e469fd5e6062c9..ef0df0b5cc3cf0014983e58d4dc786f7aba37b73 100644 (file)
--- a/extra/euler/b-rep/b-rep.factor
+++ b/extra/euler/b-rep/b-rep.factor
@@ -94,7 +94,7 @@ sharpness-stack [ V{ t } ] initialize
     [ face-ccw ] keep [ vertex-pos ] bi@ v- ;
 
 : normal ( v0 v1 v2 -- v )
-    [ drop v- ] [ [ drop ] 2dip v- ] 3bi cross ;
+    [ drop v- ] [ nipd v- ] 3bi cross ;
 
 ERROR: all-points-colinear ;