From 1993274d01a5f2deac54ff90a0efa46d77b1a775 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 31 Jul 2009 19:46:18 -0500 Subject: [PATCH] alien.libraries: add-library should now reload the library properly, instead of just leaking DLL handles --- basis/alien/libraries/libraries.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor index b2ce66b02c..0d255b8d07 100755 --- a/basis/alien/libraries/libraries.factor +++ b/basis/alien/libraries/libraries.factor @@ -29,5 +29,6 @@ M: library dispose dll>> [ dispose ] when* ; : remove-library ( name -- ) libraries get delete-at* [ dispose ] [ drop ] if ; -: add-library ( name path abi -- ) - swap libraries get [ delete-at ] [ set-at ] 2bi ; \ No newline at end of file +: add-library ( name path abi -- ) + [ 2drop remove-library ] + [ swap libraries get set-at ] 3bi ; \ No newline at end of file