1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00

* readline.scm: Report an error if readline isn't provided by

Guile;  Added :no-backtrace to module header.
This commit is contained in:
Mikael Djurfeldt 2000-06-06 12:41:58 +00:00
parent 461c176998
commit c8fac0c3e5

View file

@ -23,7 +23,8 @@
(define-module (ice-9 readline)
:use-module (ice-9 session)
:use-module (ice-9 regex))
:use-module (ice-9 regex)
:no-backtrace)
;;; Dynamically link the glue code for accessing the readline library,
;;; but only when it isn't already present.
@ -31,6 +32,13 @@
(if (not (feature? 'readline))
(dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so")))
(if (not (feature? 'readline))
(scm-error 'misc-error
#f
"readline is not provided in this Guile installation"
'()
'()))
;;; MDJ 980513 <djurfeldt@nada.kth.se>:
;;; There should probably be low-level support instead of this code.