extra/partial-apply superseded by extra/fry

2008-02-23 02:10:42 -06:00 · 2008-02-23 02:10:42 -06:00 · 564594c222
parent 92e585f48c
commit 564594c222
1 changed files with 0 additions and 26 deletions
--- a/extra/partial-apply/partial-apply.factor
+++ b/extra/partial-apply/partial-apply.factor
@ -1,26 +0,0 @@
-
-USING: kernel sequences quotations math parser
-       shuffle combinators.cleave combinators.lib sequences.lib ;
-
-IN: partial-apply
-
-! Basic conceptual implementation. Todo: get it to compile.
-
-: apply-n ( obj quot i -- quot ) 1+ [ -nrot ] curry swap compose curry ;
-
-SYMBOL: _
-
-SYMBOL: ~
-
-: blank-positions ( quot -- seq )
-  [ length 2 - ] [ _ indices ] bi [ - ] map-with ;
-  
-: partial-apply ( pattern -- quot )
-  [ blank-positions length nrev ]
-  [ peek 1quotation ]
-  [ blank-positions ]
-  tri
-  [ apply-n ] each ;
-
-: $[ \ ] [ >quotation ] parse-literal \ partial-apply parsed ; parsing
-