From bdff947b1fbb02eadae1be4bd5d8d30c2579a8ee Mon Sep 17 00:00:00 2001
From: Sam Anklesaria <sam@Tintin.local>
Date: Tue, 5 May 2009 20:44:05 -0500
Subject: [PATCH] models.arrow.multi corrections- uses macro

---
 extra/models/arrow/multi/multi.factor | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/extra/models/arrow/multi/multi.factor b/extra/models/arrow/multi/multi.factor
index 29e7fc547e..b651731155 100644
--- a/extra/models/arrow/multi/multi.factor
+++ b/extra/models/arrow/multi/multi.factor
@@ -1,11 +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 ;
+USING: macros models.arrow models.product fry
+generalizations kernel sequences ;
 IN: models.arrow.multi
 
-: <n-arrow> ( quot int -- arrow )
-    [ narray <product> ] [ '[ _ firstn @ ] <arrow> ] bi ; inline
+MACRO: <n-arrow> ( int -- quot ) dup
+   '[ [ _ narray <product> ] dip [ _ firstn ] prepend <arrow> ] ;
 
-: <2arrow> ( a b quot -- arrow ) 2 <n-arrow> ;
-: <3arrow> ( a b c quot -- arrow ) 3 <n-arrow> ;
\ No newline at end of file
+: <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