9 lines
154 B
C
9 lines
154 B
C
|
#include <mlvalues.h>
|
||
|
|
#include "unix.h"
|
||
|
|
|
||
|
|
value unix_alarm(t) /* ML */
|
||
|
|
value t;
|
||
|
|
{
|
||
|
|
return Val_int(alarm((unsigned int) Long_val(t)));
|
||
|
|
}
|