From 564594c222f790cef614892d754dce2963e1c304 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 23 Feb 2008 02:10:42 -0600 Subject: [PATCH] extra/partial-apply superseded by extra/fry --- extra/partial-apply/partial-apply.factor | 26 ------------------------ 1 file changed, 26 deletions(-) delete mode 100644 extra/partial-apply/partial-apply.factor diff --git a/extra/partial-apply/partial-apply.factor b/extra/partial-apply/partial-apply.factor deleted file mode 100644 index 0340e53025..0000000000 --- a/extra/partial-apply/partial-apply.factor +++ /dev/null @@ -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 -