From 0e70d77b81b59bf225ff33f6949e7bd7654fa00d Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Fri, 11 May 2001 09:42:11 +0000
Subject: [PATCH] For SRFI testing, set and export env var `LTDL_LIBRARY_PATH'.

---
 check-guile.in | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/check-guile.in b/check-guile.in
index 14cd94421..e876af5e7 100644
--- a/check-guile.in
+++ b/check-guile.in
@@ -21,12 +21,15 @@ if [ x"$1" = x-i ] ; then
 else
     guile=libguile/guile
     GUILE_LOAD_PATH=$srcdir:$TEST_SUITE_DIR
+    LTDL_LIBRARY_PATH=$srcdir/srfi/.libs:${LTDL_LIBRARY_PATH}
 fi
 export GUILE_LOAD_PATH
+export LTDL_LIBRARY_PATH
 
 if [ -f "$guile" -a -x "$guile" ] ; then
     echo Testing $guile ... "$@"
     echo with GUILE_LOAD_PATH=$GUILE_LOAD_PATH
+    echo with LTDL_LIBRARY_PATH=$LTDL_LIBRARY_PATH
 else
     echo ERROR: Cannot execute $guile
     exit 1