summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)))))