From f1a997ba4f7374d508eddf7dccfae359daabb25e Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Wed, 7 Feb 2007 23:07:44 +0000
Subject: 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
---
 src/guile/skribilo/utils/compat.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/guile')

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)))))
 
-- 
cgit v1.2.3