diff --git a/basis/alien/libraries/libraries-tests.factor b/basis/alien/libraries/libraries-tests.factor index 29a13b983b..2721ce48c0 100755 --- a/basis/alien/libraries/libraries-tests.factor +++ b/basis/alien/libraries/libraries-tests.factor @@ -1,5 +1,4 @@ -USING: alien alien.libraries alien.syntax formatting io.pathnames -kernel system tools.test ; +USING: alien alien.libraries alien.syntax tools.test kernel ; IN: alien.libraries.tests [ f ] [ DLL" fadfasdfsada" dll-valid? ] unit-test @@ -27,10 +26,3 @@ IN: alien.libraries.tests "test-library" "blah" cdecl add-library? "blah" remove-library ] unit-test - -! dlopen resolves resource:-paths -os windows? [ - [ t ] [ - vm file-stem "resource:/%s.exe" sprintf dlopen dll-valid? - ] unit-test -] when diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor index 3fb8324186..7e8611405e 100755 --- a/basis/alien/libraries/libraries.factor +++ b/basis/alien/libraries/libraries.factor @@ -5,7 +5,7 @@ kernel namespaces destructors sequences strings system io.pathnames fry combinators vocabs ; IN: alien.libraries -: dlopen ( path -- dll ) absolute-path native-string>alien (dlopen) ; +: dlopen ( path -- dll ) native-string>alien (dlopen) ; : dlsym ( name dll -- alien ) [ string>symbol ] dip (dlsym) ;