Commit | Line | Data |
---|---|---|
c374ab69 MV |
1 | (define-module (readline-activator)) |
2 | ||
3 | (define-public (activate-readline) | |
4 | (save-module-excursion | |
5 | (lambda () | |
6 | (define-module (guile)) | |
7 | (dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so")) | |
8 | (if (isatty? (current-input-port)) | |
9 | (begin | |
10 | (define-module (guile) :use-module (ice-9 readline)) | |
11 | (define-module (guile-user) :use-module (ice-9 readline))))))) |