HERE=`dirname $0`
TESTS=$@

pushd "$HERE"
if [ -z "$TESTS" ]; then
    TESTS=*.scm
fi

for i in $TESTS; do
    guile -L .. --r7rs "$i"
done
popd