multi-arrows: arrows with multiple inputs

diff --git a/extra/models/arrow/multi/multi.factor b/extra/models/arrow/multi/multi.factor
new file mode 100644 (file)
index 0000000..29e7fc5
--- /dev/null
+++ b/extra/models/arrow/multi/multi.factor
@@ -0,0 +1,11 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: models.arrow models.product stack-checker accessors fry
+generalizations kernel ;
+IN: models.arrow.multi
+
+: <n-arrow> ( quot int -- arrow )
+    [ narray <product> ] [ '[ _ firstn @ ] <arrow> ] bi ; inline
+
+: <2arrow> ( a b quot -- arrow ) 2 <n-arrow> ;
+: <3arrow> ( a b c quot -- arrow ) 3 <n-arrow> ;
\ No newline at end of file