From 57d2e5d8a81c01029638e16590248cb54d72cb43 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Aug 2008 15:49:23 -0500
Subject: [PATCH] remove accessor

---
 core/alien/alien.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index f1fa13c1d8..6a5dfe30df 100755
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -53,7 +53,7 @@ TUPLE: library path abi dll ;
     over dup [ dlopen ] when \ library boa ;
 
 : load-library ( name -- dll )
-    library dup [ library-dll ] when ;
+    library dup [ dll>> ] when ;
 
 : add-library ( name path abi -- )
     <library> swap libraries get set-at ;