* readline-activator.scm (activate-readline): Report an error if

readline isn't provided by Guile.

diff --git a/guile-readline/readline-activator.scm b/guile-readline/readline-activator.scm
index 38adcad..42ed113 100644 (file)
--- a/guile-readline/readline-activator.scm
+++ b/guile-readline/readline-activator.scm
@@ -1,6 +1,12 @@
 (define-module (readline-activator))
 
 (define-public (activate-readline)
+  (if (not (provided? 'readline))
+      (scm-error 'misc-error
+                'activate-readline
+                "readline is not provided in this Guile installation"
+                '()
+                '()))
   (save-module-excursion
    (lambda ()
      (define-module (guile))