guile-readline/readline-activator.scm

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