set-n/set-n.factor

   1 USING: accessors assocs fry generalizations kernel locals math
   2 namespaces parser sequences shuffle words effects.parser ;
   3 IN: set-n
   4 : get* ( var n -- val ) namestack dup length rot - head assoc-stack ;
   5
   6 : set* ( val var n -- ) 1 + namestack [ length swap - ] keep nth set-at ;
   7
   8 ! dynamic lambda
   9 SYNTAX: :| (:) dup in>> dup length [ spin '[ _ narray _ swap zip _ bind ] ] 2curry dip define-declared ;