mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* readline.scm: Only link glue code when the 'readline feature is

Browse source 
not already present.  Thanks to Clark McGrew.
This commit is contained in:
Marius Vollmer 2000-01-25 20:20:48 +00:00
parent 49ac1ba82d
commit acb0207f44
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guile-readline/readline.scm
View file

@ -25,9 +25,11 @@
:use-module (ice-9 session) :use-module (ice-9 session)
:use-module (ice-9 regex)) :use-module (ice-9 regex))
;;; 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.
(dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so")) (if (not (feature? 'readline))
(dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so")))
;;; 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.