blob: 38adcadf89804942e741282f7477da081eacd464 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(define-module (readline-activator))
(define-public (activate-readline)
(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)))))))
|