mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

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

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

10
guile-readline/readline.scm
View file

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