mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* Using provided?´ instead of feature?´.

Browse source
This commit is contained in:
Dirk Herrmann 2001-08-31 09:21:03 +00:00
parent f7c6b77886
commit fbd5c45215
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guile-readline/ChangeLog
View file

@ -1,3 +1,8 @@
2001-08-31 Dirk Herrmann <D.Herrmann@tu-bs.de>
* readline.scm: `feature?´ is deprecated. Use `provided?´
instead.
2001-08-25 Marius Vollmer <mvo@zagadka.ping.de>
* readline.scm: Use load-extension instead of explicit

6
guile-readline/readline.scm
View file

@ -34,10 +34,10 @@
;;; Dynamically link the glue code for accessing the readline library,
;;; but only when it isn't already present.
(if (not (feature? 'readline))
(if (not (provided? 'readline))
(load-extension "libguilereadline" "scm_init_readline"))
(if (not (feature? 'readline))
(if (not (provided? 'readline))
(scm-error 'misc-error
#f
"readline is not provided in this Guile installation"
@ -168,7 +168,7 @@
(define-public (set-readline-read-hook! h)
(set! read-hook h))
(if (feature? 'regex)
(if (provided? 'regex)
(begin
(define-public apropos-completion-function
(let ((completions '()))