Updating code for make and fry changes

[factor.git] / extra / combinators / cleave / cleave.factor

diff --git a/extra/combinators/cleave/cleave.factor b/extra/combinators/cleave/cleave.factor
index f5aeeff61916f9098696863c1c9c1d1136c67090..e57116a25b7ad1a6bc5c9f6adf8796eacc57d157 100755 (executable)
--- a/extra/combinators/cleave/cleave.factor
+++ b/extra/combinators/cleave/cleave.factor
@@ -21,7 +21,7 @@ MACRO: ncleave ( seq n -- quot ) [ncleave] ;
 ! Cleave into array
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-: [narr] ( seq n -- quot ) over length '[ , , ncleave , narray ] ;
+: [narr] ( seq n -- quot ) over length '[ _ _ ncleave _ narray ] ;
 
 MACRO: narr ( seq n -- array ) [narr] ;
 
@@ -34,11 +34,11 @@ MACRO: 3arr ( seq -- array ) 3 [narr] ;
 
 MACRO: <arr> ( seq -- )
   [ >quots ] [ length ] bi
- '[ , cleave , narray ] ;
+ '[ _ cleave _ narray ] ;
 
 MACRO: <2arr> ( seq -- )
   [ >quots ] [ length ] bi
- '[ , 2cleave , narray ] ;
+ '[ _ 2cleave _ narray ] ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -58,7 +58,7 @@ MACRO: <2arr> ( seq -- )
 
 MACRO: <arr*> ( seq -- )
   [ >quots ] [ length ] bi
- '[ , spread , narray ] ;
+ '[ _ spread _ narray ] ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!