extra/arrays/lib/lib.factor

   1
   2 USING: kernel arrays sequences sequences.private macros ;
   3
   4 IN: arrays.lib
   5
   6 MACRO: narray ( n -- quot )
   7     dup [ f <array> ] curry
   8     swap <reversed> [
   9         [ swap [ set-nth-unsafe ] keep ] curry
  10     ] map concat append ;