mescc: Guile fixes.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 4 May 2018 08:12:34 +0000 (10:12 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 4 May 2018 08:12:34 +0000 (10:12 +0200)
* scripts/mescc: Set GODIR.  Add module as expression to Mes
  invokation.  Remove explicit (second) call to main.

build-aux/check-mescc.sh
scripts/mescc

index 3c87e715b6f1e8e8e881e61a6cb39ef8d281895d..ad18e43692eeb07143a2d6090cc4f13991c3f318 100755 (executable)
@@ -213,7 +213,6 @@ broken="$broken
 27_sizeof
 28_strings
 
-30_hanoi
 32_led
 34_array_assignment
 37_sprintf
@@ -258,7 +257,7 @@ for t in $tests; do
         echo ' [SKIP]'
         continue;
     fi
-    sh build-aux/test.sh "scaffold/tinycc/$t" arg1 arg2 arg3 arg4 arg5 &> scaffold/tinycc/"$t".log
+    sh build-aux/test.sh "scaffold/tinycc/$t" &> scaffold/tinycc/"$t".log
     r=$?
     total=$((total+1))
     if [ $r = 0 ]; then
index 4baf7cc5124a85b770929deacd4af2dfae701726..2c4c1bd94aae5bc5921a50e0361702366fec674c 100755 (executable)
@@ -4,7 +4,7 @@ mes_p=$(command -v mes)
 if [ '(' -z "$mes_p" -a -z "$MES" ')' -o "$MES" = "guile" -o "$MES" = "mes.guile" ]; then
     GODIR=${GODIR-@GODIR@}
     GUILEDIR=${GUILEDIR-@GUILEDIR@}
-    [ "$GODIR" = @"GODIR"@ ] && GODIR=$(dirname $0)
+    [ "$GODIR" = @"GODIR"@ ] && GODIR=$(dirname $0)/../guile
     [ "$GUILEDIR" = @"GUILEDIR"@ ] && GUILEDIR=$(dirname $0)/../guile
     export GUILE_AUTO_COMPILE=${GUILE_AUTO_COMPILE-0}
     GUILE_LOAD_COMPILED_PATH=$GODIR:$GUILE_LOAD_COMPILED_PATH
@@ -21,7 +21,7 @@ else
     fi
     MES_MODULEDIR=${MES_MODULEDIR-$MES_PREFIX/"module"}
     export MES_MODULEDIR
-    $MES -s $0 "$@"
+    exec ${MES-mes} -e '(mescc)' -s $0 "$@"
     exit $?
 fi
 !#
@@ -204,6 +204,4 @@ Environment variables:
                                           (objects (map info->object infos)))
                                      (if compile? (objects->M1 file-name objects)
                                          (objects->elf file objects))))))))))
-
-(main (command-line))
 'done