From 94f519b12cc8223791fdab52e86d5a6d6ade7872 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Fri, 3 Jul 2009 10:32:39 +1200
Subject: [PATCH] alien.compile: use locals in some words

---
 basis/alien/compile/compile.factor | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/basis/alien/compile/compile.factor b/basis/alien/compile/compile.factor
index b92fdb71ff..183b7372a7 100644
--- a/basis/alien/compile/compile.factor
+++ b/basis/alien/compile/compile.factor
@@ -1,6 +1,6 @@
 USING: accessors arrays combinators fry generalizations
 io.encodings.ascii io.files io.files.temp io.launcher kernel
-sequences system ;
+locals sequences system ;
 IN: alien.compile
 
 : library-suffix ( -- str )
@@ -12,16 +12,15 @@ IN: alien.compile
 
 : src-suffix ( lang -- str )
     {
-        { "C" [ ".c" ] }
-        { "C++" [ ".cpp" ] }
+        { C [ ".c" ] }
+        { C++ [ ".cpp" ] }
     } case ;
 
-: compile-to-object ( lang contents name -- )
-    rot '[ _ src-suffix append ] [ ".o" append ] bi
-    [ temp-file ] bi@
-    [ tuck ascii set-file-contents ] dip
-    swap 2array { "gcc" "-fPIC" "-c" "-o" } prepend
-    try-process ;
+:: compile-to-object ( lang contents name -- )
+    name ".o" append temp-file
+    contents name lang src-suffix append temp-file
+    [ ascii set-file-contents ] keep 2array
+    { "gcc" "-fPIC" "-c" "-o" } prepend try-process ;
 
 : link-object ( args name -- )
     [ "lib" prepend library-suffix append ] [ ".o" append ] bi
@@ -34,6 +33,6 @@ IN: alien.compile
         [ name>> "unimplemented for: " prepend throw ]
     } cond prepend prepend try-process ;
 
-: compile-to-library ( lang args contents name -- )
-    [ [ nip ] dip compile-to-object ] 4 nkeep
-    nip link-object drop ;
+:: compile-to-library ( lang args contents name -- )
+    lang contents name compile-to-object
+    args name link-object ;