From 598127c0e2d1ca6d72fdbf0551c76ff4a0a306a7 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 24 Mar 2008 12:02:10 -0500
Subject: [PATCH] add new stack effects library

---
 extra/new-effects/new-effects.factor | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 extra/new-effects/new-effects.factor

diff --git a/extra/new-effects/new-effects.factor b/extra/new-effects/new-effects.factor
new file mode 100644
index 0000000000..dbb7b850d0
--- /dev/null
+++ b/extra/new-effects/new-effects.factor
@@ -0,0 +1,17 @@
+USING: assocs kernel sequences ;
+IN: new-effects
+
+: new-nth ( seq n -- elt )
+    swap nth ;
+
+: new-set-nth ( seq obj n -- seq )
+    pick set-nth ;
+
+: new-at ( assoc key -- elt )
+    swap at ;
+
+: new-at* ( assoc key -- elt ? )
+    swap at* ;
+
+: new-set-at ( assoc value key -- assoc )
+    pick set-at ;