length [ firstn ] curry ;
:: nmake ( quot exemplars -- )
- [
- exemplars
- [ 0 swap new-resizable ] map
- building-seq set
-
+ exemplars [ 0 swap new-resizable ] map
+ building-seq [
quot call
-
building-seq get
exemplars [ [ like ] 2map ] [ finish-nmake ] bi
- ] with-scope ; inline
+ ] with-variable ; inline