From ac591d1c675caf78ca57c2b217e8716b02921fd1 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 9 Jun 2008 23:00:21 -0500
Subject: [PATCH] newfx: Add stack-effects

---
 extra/newfx/newfx.factor | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/extra/newfx/newfx.factor b/extra/newfx/newfx.factor
index e017dc4b2b..be30dfe370 100644
--- a/extra/newfx/newfx.factor
+++ b/extra/newfx/newfx.factor
@@ -175,15 +175,15 @@ METHOD: as-mutate { object object assoc }       set-at ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: 1st 0 at ;
-: 2nd 1 at ;
-: 3rd 2 at ;
-: 4th 3 at ;
-: 5th 4 at ;
-: 6th 5 at ;
-: 7th 6 at ;
-: 8th 7 at ;
-: 9th 8 at ;
+: 1st ( seq -- obj ) 0 at ;
+: 2nd ( seq -- obj ) 1 at ;
+: 3rd ( seq -- obj ) 2 at ;
+: 4th ( seq -- obj ) 3 at ;
+: 5th ( seq -- obj ) 4 at ;
+: 6th ( seq -- obj ) 5 at ;
+: 7th ( seq -- obj ) 6 at ;
+: 8th ( seq -- obj ) 7 at ;
+: 9th ( seq -- obj ) 8 at ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!