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