mescc: Tinycc support: Sizeof struct destruct.
[mes.git] / scripts / mescc
index b37de93fc2d9a0919b14ee7886ffc61377028dc5..2c4c1bd94aae5bc5921a50e0361702366fec674c 100755 (executable)
@@ -1,10 +1,10 @@
 #! /bin/sh
 # -*-scheme-*-
-mes_p=$(type -p mes)
+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