set-n allows dynamic variable assigning in outer scopes

2009-06-04 21:24:25 -05:00 · 2009-06-04 21:24:25 -05:00 · acf9159f31
parent b74b8478f3
commit acf9159f31
1 changed files with 5 additions and 0 deletions
--- a/extra/set-n/set-n.factor
+++ b/extra/set-n/set-n.factor
@ -0,0 +1,5 @@
+USING: assocs kernel math namespaces sequences ;
+IN: set-n
+: get* ( var n -- val ) namestack swap tail-slice* assoc-stack ;
+
+: set* ( val var n -- ) 1 + namestack [ length swap - ] keep nth set-at ;