/[guile]/guile/guile-core/check-guile.in
ViewVC logotype

Diff of /guile/guile-core/check-guile.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by ttn, Tue Feb 5 10:09:39 2002 UTC revision 1.12 by ttn, Tue Feb 5 10:32:35 2002 UTC
# Line 13  set -e Line 13  set -e
13    
14  # this script runs in the top-level build-dir.  # this script runs in the top-level build-dir.
15  top_builddir=`pwd`  top_builddir=`pwd`
   
16  top_srcdir=@top_srcdir@  top_srcdir=@top_srcdir@
17    
18  TEST_SUITE_DIR=$top_builddir/test-suite  TEST_SUITE_DIR=${top_srcdir}/test-suite
19    
20  if [ x"$1" = x-i ] ; then  if [ x"$1" = x-i ] ; then
21      guile=$2      guile=$2
22      guile_opts=      guile_opts=
23      shift      shift
24      shift      shift
     GUILE_LOAD_PATH=$TEST_SUITE_DIR  
25  else  else
26      guile=${top_srcdir}/pre-inst-guile      guile=${top_srcdir}/pre-inst-guile
27      guile_opts="${top_builddir}"      guile_opts="${top_builddir}"
     GUILE_LOAD_PATH=${top_builddir}:$TEST_SUITE_DIR  
28  fi  fi
29    
30    GUILE_LOAD_PATH=$TEST_SUITE_DIR
31  export GUILE_LOAD_PATH  export GUILE_LOAD_PATH
32    
33  if [ -f "$guile" -a -x "$guile" ] ; then  if [ -f "$guile" -a -x "$guile" ] ; then

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26