From 3cfce74d280aac1f9ec994c79d0a6620d081f492 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 31 Jul 2012 22:11:25 -0700 Subject: [PATCH] Revert "alien.libraries: allow "foo f address-of" to be folded." This reverts commit 96c7a59ad2c5209dbc8db24cea47314b20ef4516. --- basis/alien/libraries/libraries.factor | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) 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