diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor index adb9eeb1bb..3fcc15974c 100644 --- a/basis/alien/libraries/libraries.factor +++ b/basis/alien/libraries/libraries.factor @@ -18,5 +18,4 @@ TUPLE: library path abi dll ; library dup [ dll>> ] when ; : add-library ( name path abi -- ) - [ dup [ normalize-path ] when ] dip swap libraries get set-at ; diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor index aa9346f788..7d65ea7103 100644 --- a/basis/compiler/tests/alien.factor +++ b/basis/compiler/tests/alien.factor @@ -1,18 +1,20 @@ -IN: compiler.tests USING: alien alien.c-types alien.syntax compiler kernel namespaces namespaces tools.test sequences stack-checker stack-checker.errors words arrays parser quotations continuations effects namespaces.private io io.streams.string memory system threads tools.test math accessors combinators -specialized-arrays.float alien.libraries ; +specialized-arrays.float alien.libraries io.pathnames +io.backend ; +IN: compiler.tests << : libfactor-ffi-tests-path ( -- string ) + "resource:" normalize-path { - { [ os winnt? ] [ "resource:libfactor-ffi-test.dll" ] } - { [ os macosx? ] [ "resource:libfactor-ffi-test.dylib" ] } - { [ os unix? ] [ "resource:libfactor-ffi-test.so" ] } - } cond ; + { [ os winnt? ] [ "libfactor-ffi-test.dll" ] } + { [ os macosx? ] [ "libfactor-ffi-test.dylib" ] } + { [ os unix? ] [ "libfactor-ffi-test.so" ] } + } cond append-path ; "f-cdecl" libfactor-ffi-tests-path "cdecl" add-library