From a5741f0c706efbdf074ba5ec9ded4729912d9919 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@trifocus.net>
Date: Tue, 20 Dec 2005 21:39:44 +0000
Subject: [PATCH] stdio, unparser vocabs removed 2list removed

---
 contrib/aim/aim.factor       | 2 +-
 contrib/aim/load.factor      | 4 +++-
 contrib/aim/net-bytes.factor | 4 ++--
 3 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/contrib/aim/aim.factor b/contrib/aim/aim.factor
index dba1daddaa..53c6df656a 100644
--- a/contrib/aim/aim.factor
+++ b/contrib/aim/aim.factor
@@ -1,7 +1,7 @@
 ! All Talk
 
 IN: aim-internals
-USING: kernel sequences lists stdio prettyprint strings namespaces math unparser threads vectors errors parser interpreter test io crypto words hashtables inspector aim-internals generic queues arrays ;
+USING: kernel sequences lists prettyprint strings namespaces math threads vectors errors parser interpreter test io crypto words hashtables inspector aim-internals generic queues arrays ;
 
 SYMBOL: username
 SYMBOL: password
diff --git a/contrib/aim/load.factor b/contrib/aim/load.factor
index ea86866df9..46637b49e4 100644
--- a/contrib/aim/load.factor
+++ b/contrib/aim/load.factor
@@ -1,5 +1,5 @@
 IN: network-util
-USING: parser sequences ;
+USING: parser sequences words compiler ;
 
 [
     "contrib/crypto/load.factor"
@@ -7,3 +7,5 @@ USING: parser sequences ;
     "contrib/aim/aim.factor"
 ] [ run-file ] each
 
+"aim-internals" words [ try-compile ] each
+"aim" words [ try-compile ] each
diff --git a/contrib/aim/net-bytes.factor b/contrib/aim/net-bytes.factor
index 999638a279..5efbfa65c8 100644
--- a/contrib/aim/net-bytes.factor
+++ b/contrib/aim/net-bytes.factor
@@ -1,5 +1,5 @@
 IN: aim-internals
-USING: kernel sequences lists stdio prettyprint strings namespaces math unparser threads vectors errors parser interpreter test io crypto ;
+USING: kernel sequences lists prettyprint strings namespaces math threads vectors errors parser interpreter test io crypto arrays ;
 
 SYMBOL: big-endian t big-endian set
 SYMBOL: unscoped-stream
@@ -31,7 +31,7 @@ SYMBOL: unscoped-stack
 
 ! TODO: make this work for types other than ""
 : papply ( seq seq -- seq )
-    [ [ 2list call % ] 2each ] "" make ;
+    [ [ 2array >list call % ] 2each ] "" make ;
 
 : writeln ( string -- )
     write terpri ;