* readline.scm: Only link glue code when the 'readline feature is

not already present.  Thanks to Clark McGrew.

diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm
index 1e9e162..02b545b 100644 (file)
--- a/guile-readline/readline.scm
+++ b/guile-readline/readline.scm
@@ -25,9 +25,11 @@
   :use-module (ice-9 session)
   :use-module (ice-9 regex))
 
-;;; Dynamically link the glue code for accessing the readline library
+;;; Dynamically link the glue code for accessing the readline library,
+;;; but only when it isn't already present.
 
-(dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so"))
+(if (not (feature? 'readline))
+    (dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so")))
 
 ;;; MDJ 980513 <djurfeldt@nada.kth.se>:
 ;;; There should probably be low-level support instead of this code.