order of str-fry arguments corrected

2009-05-04 18:39:52 -05:00 · 2009-05-04 18:39:52 -05:00 · f67d9a76e7
parent e222378ecc
commit f67d9a76e7
1 changed files with 1 additions and 1 deletions
--- 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 <effect> [ call-effect ] 2curry ] bi ;
 SYNTAX: I" parse-string rest str-fry over push-all ;