97 |
(primitive-load-path "ice-9/r4rs.scm") |
(primitive-load-path "ice-9/r4rs.scm") |
98 |
|
|
99 |
|
|
100 |
|
;;; {Deprecated stuff} |
101 |
|
|
102 |
|
(begin-deprecated |
103 |
|
(primitive-load-path "ice-9/deprecated.scm")) |
104 |
|
|
105 |
|
|
106 |
|
|
107 |
;;; {Simple Debugging Tools} |
;;; {Simple Debugging Tools} |
108 |
;; |
;; |
109 |
|
|
1686 |
;; (define-special-value '(app modules new-ws) (lambda () (make-scm-module))) |
;; (define-special-value '(app modules new-ws) (lambda () (make-scm-module))) |
1687 |
|
|
1688 |
(define (try-load-module name) |
(define (try-load-module name) |
1689 |
(try-module-autoload name)) |
(or (begin-deprecated (try-module-linked name)) |
1690 |
|
(try-module-autoload name) |
1691 |
|
(begin-deprecated (try-module-dynamic-link name)))) |
1692 |
|
|
1693 |
(define (purify-module! module) |
(define (purify-module! module) |
1694 |
"Removes bindings in MODULE which are inherited from the (guile) module." |
"Removes bindings in MODULE which are inherited from the (guile) module." |