core: Add the shuffler words but without primitives.

[factor.git] / extra / noise / noise.factor

diff --git a/extra/noise/noise.factor b/extra/noise/noise.factor
index 92ecdbc434483ec7289794ccd1a228e206b789f5..252a1368a230e8a08381fd6cfb5b23e5b1dfcffb 100644 (file)
--- a/extra/noise/noise.factor
+++ b/extra/noise/noise.factor
@@ -58,7 +58,7 @@ ERROR: invalid-perlin-noise-table table ;
 ! XXX doesn't work when v is nan or |v| >= 2^31
 : floor-vector ( v -- v' )
     [ float-4 int-4 vconvert int-4 float-4 vconvert ]
-    [ [ v> -1.0 float-4-with vand ] curry keep v+ ] bi ; inline
+    [ [ v> -1.0 float-4-with vand ] keepd v+ ] bi ; inline
 
 : unit-cubed ( floats -- ints )
     float-4 int-4 vconvert 255 int-4-with vbitand ; inline