From 23ec6ef1228d6778248f6b217514b83c873c9235 Mon Sep 17 00:00:00 2001
From: Aaron Schaefer <aaron@elasticdog.com>
Date: Sat, 8 Nov 2008 15:30:28 -0500
Subject: [PATCH] Minor stack shuffling changes

---
 extra/math/erato/erato.factor     | 2 +-
 extra/math/finance/finance.factor | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/math/erato/erato.factor b/extra/math/erato/erato.factor
index 894905e405..7f9262380c 100644
--- a/extra/math/erato/erato.factor
+++ b/extra/math/erato/erato.factor
@@ -15,7 +15,7 @@ TUPLE: erato limit bits latest ;
     [ ind ] [ bits>> ] bi* nth ; inline
 
 : indices ( n erato -- range )
-    limit>> ind over 3 * ind swap rot <range> ;
+    limit>> ind over 3 * ind spin <range> ;
 
 : mark-multiples ( n erato -- )
     2dup [ sq ] [ limit>> ] bi* <= [
diff --git a/extra/math/finance/finance.factor b/extra/math/finance/finance.factor
index f006e6aee7..e02f4be624 100644
--- a/extra/math/finance/finance.factor
+++ b/extra/math/finance/finance.factor
@@ -7,7 +7,7 @@ IN: math.finance
 <PRIVATE
 
 : weighted ( x y a -- z )
-    tuck [ * ] [ 1 swap - * ] 2bi* + ;
+    tuck [ * ] [ 1- neg * ] 2bi* + ;
 
 : a ( n -- a )
     1+ 2 swap / ;
@@ -15,7 +15,7 @@ IN: math.finance
 PRIVATE>
 
 : ema ( seq n -- newseq )
-    a swap unclip [ [ dup ] 2dip swap rot weighted ] accumulate 2nip ;
+    a swap unclip [ [ dup ] 2dip spin weighted ] accumulate 2nip ;
 
 : sma ( seq n -- newseq )
     clump [ mean ] map ;