From 4953ce5d2f7061db0b2e1ba6fb1b124e737df608 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 28 Jul 2008 17:54:10 -0500
Subject: [PATCH] Cleanup

---
 extra/tools/test/test.factor | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/extra/tools/test/test.factor b/extra/tools/test/test.factor
index abbf5e5ab9..7b3f03e18a 100755
--- a/extra/tools/test/test.factor
+++ b/extra/tools/test/test.factor
@@ -1,10 +1,9 @@
 ! Copyright (C) 2003, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: namespaces arrays prettyprint sequences kernel
-vectors quotations words parser assocs combinators
-continuations debugger io io.files vocabs
-vocabs.loader source-files compiler.units summary
-inference effects tools.vocabs ;
+USING: accessors namespaces arrays prettyprint sequences kernel
+vectors quotations words parser assocs combinators continuations
+debugger io io.files vocabs vocabs.loader source-files
+compiler.units summary inference effects tools.vocabs ;
 IN: tools.test
 
 SYMBOL: failures
@@ -31,7 +30,7 @@ SYMBOL: this-test
     ] 2curry (unit-test) ;
 
 : short-effect ( effect -- pair )
-    dup effect-in length swap effect-out length 2array ;
+    [ in>> length ] [ out>> length ] bi 2array ;
 
 : must-infer-as ( effect quot -- )
     >r 1quotation r> [ infer short-effect ] curry unit-test ;