summaryrefslogtreecommitdiff
path: root/libguile/extensions.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-03-28 22:31:20 -0700
committerAndy Wingo <wingo@pobox.com>2009-03-28 22:31:20 -0700
commit9c0cd73e614e338528e1d323dedec54f3dfad1d8 (patch)
treef9b153084447d2c2d36efbdf052b331c3278fc12 /libguile/extensions.c
parent6ecae97fb8dca2e5e26af44a649a706431c65756 (diff)
parenta5fc657043e1af9b2e79799059069f8172afb66c (diff)
downloadguile-9c0cd73e614e338528e1d323dedec54f3dfad1d8.tar.gz
Merge branch 'wingo'
Diffstat (limited to 'libguile/extensions.c')
-rw-r--r--libguile/extensions.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/extensions.c b/libguile/extensions.c
index 1090b8bd5..29cb58cbe 100644
--- a/libguile/extensions.c
+++ b/libguile/extensions.c
@@ -76,6 +76,7 @@ load_extension (SCM lib, SCM init)
{
extension_t *ext;
char *clib, *cinit;
+ int found = 0;
scm_dynwind_begin (0);
@@ -89,10 +90,14 @@ load_extension (SCM lib, SCM init)
&& !strcmp (ext->init, cinit))
{
ext->func (ext->data);
+ found = 1;
break;
}
scm_dynwind_end ();
+
+ if (found)
+ return;
}
/* Dynamically link the library. */