1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-05 03:30:24 +02:00

Load "ice-9/deprecated.scm" when appropriate.

(try-load-module): Also try the old deprecated method, maybe.
This commit is contained in:
Marius Vollmer 2003-03-26 17:59:22 +00:00
parent 5d3af6f21b
commit 48fdec2178

View file

@ -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."