factor: trim using lists

[factor.git] / extra / smalltalk / compiler / return / return.factor

diff --git a/extra/smalltalk/compiler/return/return.factor b/extra/smalltalk/compiler/return/return.factor
index 8c36bdac64eb1bc1ef1e2fa79f8d81ecf6023ea9..1cb783047e43d350a227bb80e5a9a16689dca16d 100644 (file)
--- a/extra/smalltalk/compiler/return/return.factor
+++ b/extra/smalltalk/compiler/return/return.factor
@@ -1,8 +1,8 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays combinators.short-circuit continuations
-fry generalizations kernel locals locals.types locals.rewrite.closures
-namespaces make sequences smalltalk.ast ;
+generalizations kernel locals.rewrite locals.types sequences
+smalltalk.ast ;
 IN: smalltalk.compiler.return
 
 SYMBOL: return-continuation
@@ -42,4 +42,4 @@ M: object need-return-continuation? drop f ;
     block need-return-continuation? [
         quot clone [ lexenv return>> <def> '[ _ ] prepend ] change-body
         n '[ _ _ ncurry callcc1 ]
-    ] [ quot ] if rewrite-closures first ;
\ No newline at end of file
+    ] [ quot ] if rewrite-closures first ;