factor: more top level forms.

[factor.git] / basis / gtk / ffi / ffi.factor

diff --git a/basis/gtk/ffi/ffi.factor b/basis/gtk/ffi/ffi.factor
index cf1977513ff2c50688ef5eb563fa5adeda41099f..1ae406c31f33b09630cfe141edb1f29b7220f99d 100644 (file)
--- a/basis/gtk/ffi/ffi.factor
+++ b/basis/gtk/ffi/ffi.factor
@@ -2,7 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien alien.c-types alien.destructors alien.libraries
 alien.syntax combinators gobject-introspection
-gobject-introspection.standard-types kernel pango.ffi system vocabs ;
+gobject-introspection.standard-types kernel pango.ffi system
+vocabs ;
 IN: gtk.ffi
 
 <<
@@ -12,13 +13,8 @@ IN: gtk.ffi
 
 LIBRARY: gtk
 
-<<
-"gtk" {
-    { [ os windows? ] [ "libgtk-win32-2.0-0.dll" cdecl add-library ] }
-    { [ os linux? ] [ "libgtk-x11-2.0.so" cdecl add-library ] }
-    [ drop ]
-} cond
->>
+USE-WINDOWS: gtk cdecl "libgtk-win32-2.0-0.dll"
+USE-LINUX: gtk cdecl "libgtk-x11-2.0.so"
 
 IMPLEMENT-STRUCTS: GtkTreeIter ;