Move add-simple-library to aliens.

diff --git a/contrib/load.factor b/contrib/load.factor
index bfb635aa220564edcb9a98bbd21261bb3396f4a3..35c833c3f0201ae4fc99d050dff54d9b5457cc10 100644 (file)
--- a/contrib/load.factor
+++ b/contrib/load.factor
@@ -14,17 +14,12 @@ USING: alien kernel words sequences parser compiler memory ;
 !   cont-responder -> parser-combinators
 ! }
 
-: add-simple-library ( name file -- ) 
-    win32? ".dll" ".so" ? append
-    win32? "stdcall" "cdecl" ? add-library ;
-
 { "coroutines" "dlists" "splay-trees" }
 [ dup
   "contrib/" swap ".factor" append3 run-file
    words [ try-compile ] each ] each
 
-{ "cairo" "math" "concurrency" "crypto" "aim" "httpd" "units" "sqlite" "win32"
-  "x11" ! "factory" has a C component, ick.
+{ "cairo" "math" "concurrency" "crypto" "aim" "httpd" "units" "sqlite" "win32" "x11" ! "factory" has a C component, ick.
   "postgresql" "parser-combinators" "cont-responder" "space-invaders"
 } [ "contrib/" swap "/load.factor" append3 run-file ] each
 

diff --git a/library/alien/aliens.factor b/library/alien/aliens.factor
index daa2d335bc19052a63a114abc689e18d9a12d792..a746261913575a6b8f140b54b39afed91e717cc8 100644 (file)
--- a/library/alien/aliens.factor
+++ b/library/alien/aliens.factor
@@ -32,6 +32,10 @@ M: alien = ( obj obj -- ? )
         [ "abi" set "name" set ] make-hash swap set
     ] bind ;
 
+: add-simple-library ( name file -- ) 
+    win32? ".dll" ".so" ? append
+    win32? "stdcall" "cdecl" ? add-library ;
+
 : library-abi ( library -- abi )
     library "abi" swap ?hash [ "cdecl" ] unless* ;