X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=guile18%2Fguile-readline%2Freadline-activator.scm;fp=guile18%2Fguile-readline%2Freadline-activator.scm;h=42ed113bf3c4fc32bdaa429e6484bc9f54009f76;hb=139c38d9204dd07f6b235f83bae644faedbc63fd;hp=0000000000000000000000000000000000000000;hpb=652ed35a2013489d0a14fede6307cd2595abb2c4;p=lilypond.git

diff --git a/guile18/guile-readline/readline-activator.scm b/guile18/guile-readline/readline-activator.scm
new file mode 100644
index 0000000000..42ed113bf3
--- /dev/null
+++ b/guile18/guile-readline/readline-activator.scm
@@ -0,0 +1,17 @@
+(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))
+     (dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so"))
+     (if (isatty? (current-input-port))
+	 (begin
+	   (define-module (guile) :use-module (ice-9 readline))
+	   (define-module (guile-user) :use-module (ice-9 readline)))))))