diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1998-08-08 16:52:33 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1998-08-08 16:52:33 +0000 |
| commit | c6b82c5c30ba710e5bf55729f09f12a9356ddcd6 (patch) | |
| tree | c022d95cf48398fe52559d8c4f078c778a30ec26 /stdlib/sys.ml | |
| parent | 63be4e8d2bdb08ebfd3ac504b2bb30d02dd8cd18 (diff) | |
Sys.signal renvoie l'ancien handler
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2039 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/sys.ml')
| -rw-r--r-- | stdlib/sys.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/stdlib/sys.ml b/stdlib/sys.ml index ae1494555..c2be9c9de 100644 --- a/stdlib/sys.ml +++ b/stdlib/sys.ml @@ -37,7 +37,8 @@ type signal_behavior = | Signal_ignore | Signal_handle of (int -> unit) -external signal: int -> signal_behavior -> unit = "install_signal_handler" +external signal: int -> signal_behavior -> signal_behavior + = "install_signal_handler" let sigabrt = -1 let sigalrm = -2 @@ -67,4 +68,5 @@ let catch_break on = if on then signal sigint (Signal_handle(fun _ -> raise Break)) else - signal sigint Signal_default + signal sigint Signal_default; + () |