From 4c6af1cc9f370ffc65fe2323b84ca16b8bc3800d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 3 Dec 2008 10:45:06 -0600
Subject: [PATCH] Use fry instead of curry
---
basis/random/mersenne-twister/mersenne-twister.factor | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/basis/random/mersenne-twister/mersenne-twister.factor b/basis/random/mersenne-twister/mersenne-twister.factor
index 90abec68a5..3097eafd15 100644
--- a/basis/random/mersenne-twister/mersenne-twister.factor
+++ b/basis/random/mersenne-twister/mersenne-twister.factor
@@ -44,9 +44,9 @@ TUPLE: mersenne-twister { seq uint-array } { i fixnum } ;
dupd wrap-nth dup -30 shift bitxor 1812433253 * + 1+ 32 bits ; inline
: init-mt-rest ( seq -- )
- mt-n 1- swap [
- [ init-mt-formula ] [ [ 1+ ] dip set-wrap-nth ] 2bi
- ] curry each ; inline
+ mt-n 1- swap '[
+ _ [ init-mt-formula ] [ [ 1+ ] dip set-wrap-nth ] 2bi
+ ] each ; inline
: init-mt-seq ( seed -- seq )
32 bits mt-n <uint-array>