diff options
| author | Ludovic Courtes | 2007-02-07 23:07:44 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2007-02-07 23:07:44 +0000 |
| commit | f1a997ba4f7374d508eddf7dccfae359daabb25e (patch) | |
| tree | 00cae01c08f298a402e3b26115cb7306b7bb7f24 /src/guile | |
| parent | 897b708f2d2c8ab23ae9166d17ebe7d3e6853200 (diff) | |
| download | skribilo-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/guile')
| -rw-r--r-- | src/guile/skribilo/utils/compat.scm | 7 |
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))))) |