diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor index 931e407cae..a046e3b9f5 100755 --- a/basis/alien/libraries/libraries.factor +++ b/basis/alien/libraries/libraries.factor @@ -56,12 +56,8 @@ M: library dispose dll>> [ dispose ] when* ; ERROR: no-such-symbol name library ; -: (address-of) ( name -- value ) - dup f dlsym-raw [ nip ] [ f no-such-symbol ] if* ; foldable - -: address-of ( name library/f -- value ) - [ 2dup load-library dlsym-raw [ 2nip ] [ no-such-symbol ] if* ] - [ (address-of) ] if* ; inline +: address-of ( name library -- value ) + 2dup load-library dlsym-raw [ 2nip ] [ no-such-symbol ] if* ; SYMBOL: deploy-libraries