core: Add the shuffler words but without primitives.

[factor.git] / basis / alien / libraries / libraries.factor

diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor
index 2365e0ee426100ceafdd439ba1d149a2380acab8..a176e106e4107e80ef2539b930b6088371df6aac 100755 (executable)
--- a/basis/alien/libraries/libraries.factor
+++ b/basis/alien/libraries/libraries.factor
@@ -65,7 +65,7 @@ M: library dispose dll>> [ dispose ] when* ;
 : add-library ( name path abi -- )
     3dup add-library? [
         [ 2drop remove-library ]
-        [ [ nip ] dip make-library ]
+        [ nipd make-library ]
         [ 2drop libraries get set-at ] 3tri
     ] [ 3drop ] if ;