otherlibs/unix/exit.c


1
2
3
4
5
6
7
8
9
10
11
12

#include <mlvalues.h>
#include "unix.h"

value unix_exit(n)               /* ML */
     value n;
{
  _exit(Int_val(n));
  return Val_unit;                  /* never reached, but suppress warnings */
                                /* from smart compilers */
}