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

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

Browse source 
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
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guile-readline/readline-activator.scm
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))