1 (define-module (readline-activator))
3 (define-public (activate-readline)
4 (if (not (provided? 'readline))
7 "readline is not provided in this Guile installation"
10 (save-module-excursion
12 (define-module (guile))
13 (dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so"))
14 (if (isatty? (current-input-port))
16 (define-module (guile) :use-module (ice-9 readline))
17 (define-module (guile-user) :use-module (ice-9 readline)))))))