structure Compat : COMPAT = struct
structure Char = MLRep.Char.Unsigned
+
+ val getattr = Posix.TTY.TC.getattr
+ val setattr = Posix.TTY.TC.setattr
end
val _ = let
open MLton.Signal
in
- setHandler (Posix.Signal.pipe, Handler.ignore)
+ setHandler (Posix.Signal.pipe, Handler.ignore);
+ setHandler (Posix.Signal.chld, Handler.ignore)
end