core: Add the shuffler words but without primitives.

[factor.git] / extra / rosetta-code / raycasting / raycasting.factor

diff --git a/extra/rosetta-code/raycasting/raycasting.factor b/extra/rosetta-code/raycasting/raycasting.factor
index ca3849ada4baf3a41a86d2e375dcc4aba8bb4c73..546e53195d353612f579a289c26ee99b4abf083a 100644 (file)
--- a/extra/rosetta-code/raycasting/raycasting.factor
+++ b/extra/rosetta-code/raycasting/raycasting.factor
@@ -111,7 +111,7 @@ IN: rosetta-code.raycasting
 : lincomb ( a b x -- w )
     3dup [ last ] tri@
     [ - ] curry bi@
-    [ drop ] 2dip
+    nipd
     neg 2dup + [ / ] curry bi@
     [ [ v*n ] curry ] bi@ bi*  v+ ;