From 48fdec21783f904d2ab80abb0574a119cf7f8296 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 26 Mar 2003 17:59:22 +0000 Subject: [PATCH] Load "ice-9/deprecated.scm" when appropriate. (try-load-module): Also try the old deprecated method, maybe. --- ice-9/boot-9.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 4cabb7557..71d5d3b97 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -97,6 +97,13 @@ (primitive-load-path "ice-9/r4rs.scm") +;;; {Deprecated stuff} + +(begin-deprecated + (primitive-load-path "ice-9/deprecated.scm")) + + + ;;; {Simple Debugging Tools} ;; @@ -1679,7 +1686,9 @@ ;; (define-special-value '(app modules new-ws) (lambda () (make-scm-module))) (define (try-load-module name) - (try-module-autoload name)) + (or (begin-deprecated (try-module-linked name)) + (try-module-autoload name) + (begin-deprecated (try-module-dynamic-link name)))) (define (purify-module! module) "Removes bindings in MODULE which are inherited from the (guile) module."