mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

Add check for guile interpreter.

Browse source 
Fix bug: Use `$guile' everywhere.  Thanks to Martin Grabmueller.
This commit is contained in:
Thien-Thi Nguyen 2001-07-17 06:44:21 +00:00
parent 8ae7ecf74e
commit e13743b80a
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
examples/scripts/check.test
View file

@ -2,6 +2,14 @@
# must be run from this directory # must be run from this directory
guile=${GUILE-../../libguile/guile} guile=${GUILE-../../libguile/guile}
if [ -x $guile ] ; then
:
else
echo could not find guile interpreter.
echo '(are you running this script from' `dirname $0` '?)'
echo GUILE env var: ${GUILE-not set}
exit 1
fi
set -e set -e
@ -36,6 +44,6 @@ rm -f TMP
# #
# fact # fact
# #
case `guile -s fact 5` in 120) ;; *) echo $0: error: fact 5 ;; esac case `$guile -s fact 5` in 120) ;; *) echo $0: error: fact 5 ;; esac
# check.test ends here # check.test ends here