primitives: Change PRIMITIVE: to check that the word is in that vocabulary and the...

[factor.git] / basis / alien / libraries / libraries.factor

diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor
index 0fcb197335b4c462a0c47c407cbaa5c16d2dd9f3..91d6494c217e9a0d168bad1821f3d4f07e23208b 100755 (executable)
--- a/basis/alien/libraries/libraries.factor
+++ b/basis/alien/libraries/libraries.factor
@@ -5,6 +5,12 @@ kernel namespaces destructors sequences strings
 system io.pathnames fry combinators vocabs ;
 IN: alien.libraries
 
+PRIMITIVE: dll-valid? ( dll -- ? )
+PRIMITIVE: (dlopen) ( path -- dll )
+PRIMITIVE: (dlsym) ( name dll -- alien )
+PRIMITIVE: dlclose ( dll -- )
+PRIMITIVE: (dlsym-raw) ( name dll -- alien )
+
 : dlopen ( path -- dll ) native-string>alien (dlopen) ;
 
 : dlsym ( name dll -- alien ) [ string>symbol ] dip (dlsym) ;