quit() doit renvoyer une valeur si HAS_UI

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@642 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1996-02-18 14:44:59 +00:00 · 1996-02-18 14:44:59 +00:00 · fdc79d5db8
parent 063abb0f80
commit fdc79d5db8
1 changed files with 2 additions and 1 deletions
--- a/byterun/sys.c
+++ b/byterun/sys.c
@ -79,7 +79,7 @@ void sys_error(arg)
  raise_sys_error(str);
 }

-void sys_exit(retcode)          /* ML */
+value sys_exit(retcode)          /* ML */
     value retcode;
 {
 #ifdef HAS_UI
@ -87,6 +87,7 @@ void sys_exit(retcode)          /* ML */
 #else
  exit(Int_val(retcode));
 #endif
+  return Val_unit;
 }

 #ifndef O_BINARY