Commit | Line | Data |
---|---|---|
c374ab69 MV |
1 | (define-module (readline-activator)) |
2 | ||
3 | (define-public (activate-readline) | |
461c1769 MD |
4 | (if (not (provided? 'readline)) |
5 | (scm-error 'misc-error | |
6 | 'activate-readline | |
7 | "readline is not provided in this Guile installation" | |
8 | '() | |
9 | '())) | |
c374ab69 MV |
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))))))) |