steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "alien.libraries: allow "foo f address-of" to be folded." 

This reverts commit 96c7a59ad2.
db4
John Benediktsson 2012-07-31 22:11:25 -07:00
parent f278cb5447
commit 3cfce74d28
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/alien/libraries/libraries.factor
View File

@ -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