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.chld, Handler.ignore)
+ setHandler (Posix.Signal.pipe, Handler.ignore)
end