mapped models- arrow multi-model subclasses

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

diff --git a/extra/models/mapped/mapped.factor b/extra/models/mapped/mapped.factor
new file mode 100644 (file)
index 0000000..9b8dd9c
--- /dev/null
+++ b/extra/models/mapped/mapped.factor
@@ -0,0 +1,11 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: macros ui.frp models.product fry
+generalizations kernel sequences ;
+IN: models.mapped
+
+MACRO: <n-mapped> ( int -- quot ) dup
+   '[ [ _ narray <product> ] dip [ _ firstn ] prepend <mapped> ] ;
+
+: <2mapped> ( a b quot -- arrow ) 2 <n-mapped> ; inline
+: <3mapped> ( a b c quot -- arrow ) 3 <n-mapped> ; inline
\ No newline at end of file