Language change: tuple slot setter words with stack effect ( value object -- ) are...

[factor.git] / extra / random / cmwc / cmwc.factor

diff --git a/extra/random/cmwc/cmwc.factor b/extra/random/cmwc/cmwc.factor
index 3fda392d805ab4ee2ab5a23eec0f24d2984d4edd..44bb016267299335e3cce635d4ee2d0e92bf9f89 100644 (file)
--- a/extra/random/cmwc/cmwc.factor
+++ b/extra/random/cmwc/cmwc.factor
@@ -42,7 +42,7 @@ M:: cmwc random-32* ( cmwc -- n )
     [ [ i>> ] [ Q>> ] bi nth-unsafe * ]
     [ c>> + ] tri
 
-    [ >fixnum -32 shift cmwc (>>c) ]
+    [ >fixnum -32 shift cmwc c<< ]
     [ cmwc [ b>> bitand ] [ c>> + ] bi 32 bits ] bi
 
     dup cmwc r>> > [