diff options
author | Rob Browning <rlb@defaultvalue.org> | 2003-04-05 22:34:10 +0000 |
---|---|---|
committer | Rob Browning <rlb@defaultvalue.org> | 2003-04-05 22:34:10 +0000 |
commit | d583ce1a8abc0123b154eef0202063ad11b45410 (patch) | |
tree | 16d5f3c1f2cad29f763f9918a9595f7345c0c20e /libguile/modules.c | |
parent | 1ecfd01309ebe2613019add2737338da8d4c01ab (diff) | |
download | guile-d583ce1a8abc0123b154eef0202063ad11b45410.tar.gz |
* modules.c (s_scm_module_import_interface): move declaration of
uses before any code.
Diffstat (limited to 'libguile/modules.c')
-rw-r--r-- | libguile/modules.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/modules.c b/libguile/modules.c index 60706384b..801bd7786 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -395,9 +395,10 @@ SCM_DEFINE (scm_module_import_interface, "module-import-interface", 2, 0, 0, #define FUNC_NAME s_scm_module_import_interface { #define SCM_BOUND_THING_P(b) (!SCM_FALSEP (b)) + SCM uses; SCM_VALIDATE_MODULE (SCM_ARG1, module); /* Search the use list */ - SCM uses = SCM_MODULE_USES (module); + uses = SCM_MODULE_USES (module); while (SCM_CONSP (uses)) { SCM interface = SCM_CAR (uses); |