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:
parent
5d3af6f21b
commit
48fdec2178
1 changed files with 10 additions and 1 deletions
|
@ -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."
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue