diff --git a/extra/new-effects/new-effects.factor b/extra/new-effects/new-effects.factor index dbb7b850d0..f073ccadd3 100644 --- a/extra/new-effects/new-effects.factor +++ b/extra/new-effects/new-effects.factor @@ -2,16 +2,16 @@ USING: assocs kernel sequences ; IN: new-effects : new-nth ( seq n -- elt ) - swap nth ; + swap nth ; inline : new-set-nth ( seq obj n -- seq ) - pick set-nth ; + pick set-nth ; inline : new-at ( assoc key -- elt ) - swap at ; + swap at ; inline : new-at* ( assoc key -- elt ? ) - swap at* ; + swap at* ; inline : new-set-at ( assoc value key -- assoc ) - pick set-at ; + pick set-at ; inline diff --git a/extra/random/mersenne-twister/mersenne-twister.factor b/extra/random/mersenne-twister/mersenne-twister.factor index bf2ff78f2d..ed515716e0 100755 --- a/extra/random/mersenne-twister/mersenne-twister.factor +++ b/extra/random/mersenne-twister/mersenne-twister.factor @@ -4,14 +4,11 @@ ! http://www.math.sci.hiroshima-u.ac.jp/~m-mat/MT/MT2002/CODES/mt19937ar.c USING: arrays kernel math namespaces sequences system init -accessors math.ranges combinators.cleave random ; +accessors math.ranges combinators.cleave random new-effects ; IN: random.mersenne-twister