1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00

* readline-activator.scm (activate-readline): Report an error if

readline isn't provided by Guile.
This commit is contained in:
Mikael Djurfeldt 2000-06-06 12:41:48 +00:00
parent 5ca264aaec
commit 461c176998

View file

@ -1,6 +1,12 @@
(define-module (readline-activator))
(define-public (activate-readline)
(if (not (provided? 'readline))
(scm-error 'misc-error
'activate-readline
"readline is not provided in this Guile installation"
'()
'()))
(save-module-excursion
(lambda ()
(define-module (guile))