str-fry fixes

diff --git a/extra/str-fry/str-fry.factor b/extra/str-fry/str-fry.factor
index 65e25e258029090517103ba8665bb97cc40d1287..bfe74f37eb9b279a4f2ad66c6feb2b9b1fe51592 100644 (file)
--- a/extra/str-fry/str-fry.factor
+++ b/extra/str-fry/str-fry.factor
@@ -1,7 +1,7 @@
-USING: fry.private kernel macros math sequences splitting strings.parser ;
+USING: combinators effects kernel math sequences splitting
+strings.parser ;
 IN: str-fry
 : str-fry ( str -- quot ) "_" split
-    [ length 1 - [ncurry] [ call ] append ]
-    [ unclip [ [ rot glue ] reduce ] 2curry ] bi
-    prefix ;
+    [ unclip [ [ rot glue ] reduce ] 2curry ]
+    [ length 1 - 1 <effect> [ call-effect ] 2curry ] bi ;
 SYNTAX: I" parse-string rest str-fry over push-all ;
\ No newline at end of file