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

* boot-9.scm (warn-autoload-deprecation): New function.

Browse source 
(init-dynamic-module): Use it here to print warning.  Only give
warning when a module has actually been found.
This commit is contained in:
Marius Vollmer 2001-03-26 22:31:47 +00:00
parent 72f1168d63
commit a4e7b79a5e
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ice-9/boot-9.scm
View file

@ -1811,12 +1811,23 @@
(append! (convert-c-registered-modules dynobj) (append! (convert-c-registered-modules dynobj)
registered-modules))) registered-modules)))
(define (warn-autoload-deprecation modname)
(display
";;; Autoloading of compiled code modules is deprecated.\n"
(current-error-port))
(display
";;; Write a Scheme file instead that uses `dynamic-link' directly.\n"
(current-error-port))
(format (current-error-port)
";;; (You just tried to autoload module ~S.\n" modname))
(define (init-dynamic-module modname) (define (init-dynamic-module modname)
;; Register any linked modules which has been registered on the C level ;; Register any linked modules which has been registered on the C level
(register-modules #f) (register-modules #f)
(or-map (lambda (modinfo) (or-map (lambda (modinfo)
(if (equal? (car modinfo) modname) (if (equal? (car modinfo) modname)
(begin (begin
(warn-autload-deprecation modname)
(set! registered-modules (delq! modinfo registered-modules)) (set! registered-modules (delq! modinfo registered-modules))
(let ((mod (resolve-module modname #f))) (let ((mod (resolve-module modname #f)))
(save-module-excursion (save-module-excursion