mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

* check-guile.in: rename $parent to $srcdir. if it's equal to "."

Browse source 
set it to `pwd`.
This commit is contained in:
Gary Houston 2001-03-19 12:38:40 +00:00
parent 51cfd7da2c
commit fb11ef91dc
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
check-guile.in
View file

@ -11,9 +11,12 @@
# #
# Dependencies: dirname sed # Dependencies: dirname sed
TEST_SUITE_DIR=@srcdir@/test-suite
parent=@srcdir@
build_dir=`pwd` build_dir=`pwd`
srcdir=@srcdir@
if [ x"$srcdir" = x. ]; then
srcdir=$build_dir
fi
TEST_SUITE_DIR=$srcdir/test-suite
if [ x"$1" = x-i ] ; then if [ x"$1" = x-i ] ; then
guile=$2 guile=$2
@ -22,14 +25,14 @@ if [ x"$1" = x-i ] ; then
glp= glp=
else else
guile=$build_dir/libguile/guile guile=$build_dir/libguile/guile
glp=$parent glp=$srcdir
fi fi
if [ -f "$guile" -a -x "$guile" ] ; then if [ -f "$guile" -a -x "$guile" ] ; then
echo Testing $guile ... "$@" echo Testing $guile ... "$@"
if [ x"$glp" = x ] ; then if [ x"$glp" = x ] ; then
glp=`$guile -c "(for-each write-line %load-path)"` glp=`$guile -c "(for-each write-line %load-path)"`
glp=`echo $glp | sed 's/ /:/g'`:$parent glp=`echo $glp | sed 's/ /:/g'`:$srcdir
fi fi
GUILE_LOAD_PATH=$glp GUILE_LOAD_PATH=$glp
export GUILE_LOAD_PATH export GUILE_LOAD_PATH