Fixes complex shuffle words, Fixes complex array instantiation

[factor.git] / extra / math / runge-kutta / examples / examples.factor

diff --git a/extra/math/runge-kutta/examples/examples.factor b/extra/math/runge-kutta/examples/examples.factor
index b79c559d44ea80484ac3af6628319de0894261ab..715263e30606acb78764536e133bc8797587b737 100644 (file)
--- a/extra/math/runge-kutta/examples/examples.factor
+++ b/extra/math/runge-kutta/examples/examples.factor
@@ -8,7 +8,7 @@ IN: math.runge-kutta.examples
 
 : lorenz-dy/dt ( tx..n -- dy )
     rest first3
-    28 swap - [ swap ] dip * swap - ;
+    28 swap - swapd * swap - ;
 
 : lorenz-dz/dt ( tx..n -- dz )
     rest first3
@@ -36,7 +36,7 @@ IN: math.runge-kutta.examples
 
 :: rf-dz/dt ( tx..n alpha -- dz )
     tx..n rest first3 :> ( x y z )
-    2 neg z * alpha x y * + * ;
+    -2 z * alpha x y * + * ;
 
 :: <rabinovich-fabrikant> ( gamma alpha -- dx..n/dt delta tx..n t-limit )
     gamma '[ _ rf-dx/dt ] gamma '[ _ rf-dy/dt ] alpha '[ _ rf-dz/dt ]