From acf9159f319b8e2ea8dda49bf9ce809271d537f6 Mon Sep 17 00:00:00 2001
From: Sam Anklesaria <sam@Tintin.local>
Date: Thu, 4 Jun 2009 21:24:25 -0500
Subject: [PATCH] set-n allows dynamic variable assigning in outer scopes

---
 extra/set-n/set-n.factor | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 extra/set-n/set-n.factor

diff --git a/extra/set-n/set-n.factor b/extra/set-n/set-n.factor
new file mode 100644
index 0000000000..97aa95199d
--- /dev/null
+++ 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 ;
\ No newline at end of file