X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/8cf5b8227e29e2f7b0d245fc7a6ddd43eef06ceb..c4d0eab978e6c9341df17418fd5840762f79ec61:/src/compat_mlton.sml

diff --git a/src/compat_mlton.sml b/src/compat_mlton.sml
index 7b28b7e..06aa3a3 100644
--- a/src/compat_mlton.sml
+++ b/src/compat_mlton.sml
@@ -18,14 +18,10 @@
 
 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