summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtes2007-02-07 23:07:44 +0000
committerLudovic Courtes2007-02-07 23:07:44 +0000
commitf1a997ba4f7374d508eddf7dccfae359daabb25e (patch)
tree00cae01c08f298a402e3b26115cb7306b7bb7f24
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
-rw-r--r--ChangeLog18
-rw-r--r--src/guile/skribilo/utils/compat.scm7
2 files changed, 21 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index a79c4df..4ad04c6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,24 @@
# arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
#
+2007-02-07 23:07:44 GMT Ludovic Courtes <ludovic.courtes@laas.fr> patch-58
+
+ Summary:
+ skribe-load: Better modulogy.
+ Revision:
+ skribilo--devo--1.2--patch-58
+
+ * src/guile/skribilo/utils/compat.scm (skribe-load): Use
+ `resolve-interface' instead of `resolve-module'; use
+ `module-use-interfaces!' instead of `set-module-uses!'.
+
+ modified files:
+ ChangeLog src/guile/skribilo/utils/compat.scm
+
+ new patches:
+ lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-98
+
+
2007-02-07 23:07:16 GMT Ludovic Courtes <ludovic.courtes@laas.fr> patch-57
Summary:
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)))))