core: Add the shuffler words but without primitives.

[factor.git] / extra / fluids / fluids.factor

diff --git a/extra/fluids/fluids.factor b/extra/fluids/fluids.factor
index 21e3b242786a097718f435520b55471661374eee..20a2033c7f38de2ab0270e8467c3201d53a6f611 100644 (file)
--- a/extra/fluids/fluids.factor
+++ b/extra/fluids/fluids.factor
@@ -60,7 +60,7 @@ TUPLE: fluids-world < game-world
         <texture-2d>
     ]
     [
-        0 swap [ allocate-texture-image ] 3keep 2drop
+        0 swap [ allocate-texture-image ] keepdd
     ] bi ;
 
 SYMBOL: fluid