mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 12:10:28 +02:00
Code Activity

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

Browse source 
(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
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ice-9/boot-9.scm
View file

@ -97,6 +97,13 @@
(primitive-load-path "ice-9/r4rs.scm") (primitive-load-path "ice-9/r4rs.scm")
;;; {Deprecated stuff}
(begin-deprecated
(primitive-load-path "ice-9/deprecated.scm"))
;;; {Simple Debugging Tools} ;;; {Simple Debugging Tools}
;; ;;
@ -1679,7 +1686,9 @@
;; (define-special-value '(app modules new-ws) (lambda () (make-scm-module))) ;; (define-special-value '(app modules new-ws) (lambda () (make-scm-module)))
(define (try-load-module name) (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) (define (purify-module! module)
"Removes bindings in MODULE which are inherited from the (guile) module." "Removes bindings in MODULE which are inherited from the (guile) module."