[r2005-11-21 13:24:34 by afrisch] Error message when using --mlstub without...

[r2005-11-21 13:24:34 by afrisch] Error message when using --mlstub without the built-in OCaml interface

Original author: afrisch
Date: 2005-11-21 13:24:34+00:00

CHANGES

+After 0.4.0pl1
+
+- Error message when using --mlstub without the built-in OCaml interface
+
 0.4.0pl1
 
 - Packaging bug

driver/librarian.ml

@@ -232,7 +232,10 @@ let () =
   Eval.get_builtin := Hashtbl.find static_externals
 
 
-let stub_ml = ref (fun _ _ _ _ _ -> assert false)
+let stub_ml = ref (fun _ _ _ _ _ -> 
+		     Printf.eprintf
+		       "Fatal error: no support for the OCaml interface.\n";
+		     exit 2)
 
 let prepare_stub src =
   let c = real_load src in