swap IF_INT_64_OR_32 arguments in init function

8d41d8de · John van Groningen · dce7c00b · 8d41d8de
Commit 8d41d8de authored Jan 16, 2009 by John van Groningen
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

libraries/MersenneTwister/MersenneTwister.icl libraries/MersenneTwister/MersenneTwister.icl +1 -1

No files found.
--- a/libraries/MersenneTwister/MersenneTwister.icl
+++ b/libraries/MersenneTwister/MersenneTwister.icl
@@ -55,7 +55,7 @@ where
 	init_i :: !Int !*{#Int} !Int -> *{#Int}
 	init_i i mt n
 		| i<N
-			# n = IF_INT_64_OR_32 (n * 69069) ((n bitxor (shiftRight n 62)) * 6364136223846793005 + i);
+			# n = IF_INT_64_OR_32 ((n bitxor (shiftRight n 62)) * 6364136223846793005 + i) (n * 69069);
 			= init_i (i+1) {mt & [i] = n} n
 			= mt