do not refer to _exit. For some machines, it does not exist

diff --git a/lang/m2/libm2/catch.c b/lang/m2/libm2/catch.c
index 5768cb4..15a6b75 100644 (file)
--- a/lang/m2/libm2/catch.c
+++ b/lang/m2/libm2/catch.c
@@ -93,7 +93,7 @@ catch(trapno)
                signal(__signo, SIG_DFL);
                _cleanup();
                kill(getpid(), __signo);
-               _exit(trapno);
+               exit(trapno);
        }
 #endif
 #endif

diff --git a/lang/m2/libm2/halt.c b/lang/m2/libm2/halt.c
index feb4b34..e32e890 100644 (file)
--- a/lang/m2/libm2/halt.c
+++ b/lang/m2/libm2/halt.c
@@ -20,6 +20,7 @@ _cleanup()
        for (i = 0; i < callindex; i++) {
                (*proclist[i])();
        }
+       callindex = 0;
 }
 
 CallAtEnd(p)