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:
parent
5ca264aaec
commit
461c176998
1 changed files with 6 additions and 0 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue