aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtes2007-02-07 23:07:44 +0000
committerLudovic Courtes2007-02-07 23:07:44 +0000
commitf1a997ba4f7374d508eddf7dccfae359daabb25e (patch)
tree00cae01c08f298a402e3b26115cb7306b7bb7f24 /src
parent897b708f2d2c8ab23ae9166d17ebe7d3e6853200 (diff)
downloadskribilo-f1a997ba4f7374d508eddf7dccfae359daabb25e.tar.gz
skribilo-f1a997ba4f7374d508eddf7dccfae359daabb25e.tar.lz
skribilo-f1a997ba4f7374d508eddf7dccfae359daabb25e.zip
skribe-load: Better modulogy.
* src/guile/skribilo/utils/compat.scm (skribe-load): Use `resolve-interface' instead of `resolve-module'; use `module-use-interfaces!' instead of `set-module-uses!'. git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-58
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/utils/compat.scm7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm
index 4905cef..9f85658 100644
--- a/src/guile/skribilo/utils/compat.scm
+++ b/src/guile/skribilo/utils/compat.scm
@@ -153,13 +153,12 @@
" skribe-load: `~a' -> `~a'~%"
file mod-name))
(let ((mod (false-if-exception
- (resolve-module mod-name))))
+ (resolve-interface mod-name))))
(if (not mod)
(raise c)
(begin
- (set-module-uses!
- (current-module)
- (cons mod (module-uses (current-module))))
+ (module-use-interfaces! (current-module)
+ (list mod))
#t))))
(raise c)))))