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

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)))))