guile/guile-core/ice-9 boot-9.scm

[Marius Vollmer]

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