From f67d9a76e7f678864192c96909a02421356bcc98 Mon Sep 17 00:00:00 2001 From: Sam Anklesaria Date: Mon, 4 May 2009 18:39:52 -0500 Subject: [PATCH] order of str-fry arguments corrected --- extra/str-fry/str-fry.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/str-fry/str-fry.factor b/extra/str-fry/str-fry.factor index bfe74f37eb..55dba1285d 100644 --- a/extra/str-fry/str-fry.factor +++ b/extra/str-fry/str-fry.factor @@ -2,6 +2,6 @@ USING: combinators effects kernel math sequences splitting strings.parser ; IN: str-fry : str-fry ( str -- quot ) "_" split - [ unclip [ [ rot glue ] reduce ] 2curry ] + [ unclip-last [ [ spin glue ] reduce-r ] 2curry ] ! not rot [ length 1 - 1 [ call-effect ] 2curry ] bi ; SYNTAX: I" parse-string rest str-fry over push-all ; \ No newline at end of file