add new stack effects library

2008-03-24 12:02:10 -05:00 · 2008-03-24 12:02:10 -05:00 · 598127c0e2
parent dfc734cda8
commit 598127c0e2
1 changed files with 17 additions and 0 deletions
--- a/extra/new-effects/new-effects.factor
+++ 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 ;