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:
parent
461c176998
commit
c8fac0c3e5
1 changed files with 9 additions and 1 deletions
|
@ -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.
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue