[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 boot-9.scm
From: |
Marius Vollmer |
Subject: |
guile/guile-core/ice-9 boot-9.scm |
Date: |
Mon, 26 Mar 2001 14:31:47 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/03/26 14:31:47
Modified files:
guile-core/ice-9: boot-9.scm
Log message:
* boot-9.scm (warn-autoload-deprecation): New function.
(init-dynamic-module): Use it here to print warning. Only give
warning when a module has actually been found.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/boot-9.scm.diff?r1=1.229&r2=1.230
Patches:
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.229
guile/guile-core/ice-9/boot-9.scm:1.230
--- guile/guile-core/ice-9/boot-9.scm:1.229 Sat Mar 17 07:32:16 2001
+++ guile/guile-core/ice-9/boot-9.scm Mon Mar 26 14:31:47 2001
@@ -1811,12 +1811,23 @@
(append! (convert-c-registered-modules dynobj)
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)
;; Register any linked modules which has been registered on the C level
(register-modules #f)
(or-map (lambda (modinfo)
(if (equal? (car modinfo) modname)
(begin
+ (warn-autload-deprecation modname)
(set! registered-modules (delq! modinfo registered-modules))
(let ((mod (resolve-module modname #f)))
(save-module-excursion
- guile/guile-core/ice-9 boot-9.scm,
Marius Vollmer <=