readline: change to create alien at run-time. Fixes #254.

diff --git a/extra/readline-listener/readline-listener.factor b/extra/readline-listener/readline-listener.factor
index 2317631b6d8af1d64f52347aa86bb6f9f9f97ace..c1eba4e96dae1693839db29459435b1064e95082 100644 (file)
--- a/extra/readline-listener/readline-listener.factor
+++ b/extra/readline-listener/readline-listener.factor
@@ -4,7 +4,6 @@ USING: accessors alien.data fry io io.encodings.utf8 kernel
 listener namespaces readline sequences threads vocabs
 command-line vocabs.hierarchy sequences.deep locals
 splitting math ;
-QUALIFIED: readline.ffi
 IN: readline-listener
 
 <PRIVATE

diff --git a/extra/readline/readline.factor b/extra/readline/readline.factor
index 688934cba439eb0c21f83856bbe53af4c2f75a91..6ce6a1cf9bb3862e48dbb04398bcfab2b57518e6 100644 (file)
--- a/extra/readline/readline.factor
+++ b/extra/readline/readline.factor
@@ -18,13 +18,14 @@ IN: readline
 : current-line ( -- str )
     readline.ffi:rl_line_buffer ;
 
-: has-readline ( -- ? )
+: has-readline? ( -- ? )
     "readline" dup load-library dlsym-raw >boolean ;
 
-MACRO: set-completion ( quot -- )
+: set-completion ( quot -- )
     [
-       '[ @ [ utf8 malloc-string ] [ f ] if* ]
-       '[ _ readline.ffi:rl_compentry_func_t ]
-        (( -- alien )) define-temp
-    ] with-compilation-unit execute
-    '[ _ readline.ffi:set-rl_completion_entry_function ] ;
+       '[
+            [ @ [ utf8 malloc-string ] [ f ] if* ]
+            readline.ffi:rl_compentry_func_t
+        ] (( -- alien )) define-temp
+    ] with-compilation-unit execute( -- alien )
+    readline.ffi:set-rl_completion_entry_function ;