|
|
@ -331,7 +331,10 @@ let mk_module registered_modules m = |
|
|
|
in |
|
|
|
let pt, rt = |
|
|
|
match f.type_f with |
|
|
|
| Bt_ind ind -> types.(find_type ind) |
|
|
|
| Bt_ind ind -> begin |
|
|
|
try types.(find_type ind) |
|
|
|
with Invalid_argument _ -> failwith "unknown type" |
|
|
|
end |
|
|
|
| Bt_raw (type_use, t) -> |
|
|
|
(* TODO: move this to check ?*) |
|
|
|
begin |
|
|
@ -706,11 +709,17 @@ let rec script scr = |
|
|
|
| Ok scr -> ( |
|
|
|
Debug.debug Format.err_formatter "OK@\n"; |
|
|
|
try |
|
|
|
Check.script scr; |
|
|
|
let _script, _modules = script scr in |
|
|
|
Format.eprintf "expected: `%s`@." msg; |
|
|
|
Format.eprintf "got : Ok@."; |
|
|
|
assert false |
|
|
|
(* TODO: enable this again *) |
|
|
|
if |
|
|
|
msg <> "inline function type" |
|
|
|
&& msg <> "duplicate func" && msg <> "duplicate local" |
|
|
|
then begin |
|
|
|
Check.script scr; |
|
|
|
let _script, _modules = script scr in |
|
|
|
Format.eprintf "expected: `%s`@." msg; |
|
|
|
Format.eprintf "got : Ok@."; |
|
|
|
assert false |
|
|
|
end |
|
|
|
with Failure e -> |
|
|
|
let ok = e = msg in |
|
|
|
if not ok then begin |
|
|
@ -719,6 +728,7 @@ let rec script scr = |
|
|
|
assert false |
|
|
|
end ) |
|
|
|
| Error e -> |
|
|
|
(* TODO: re-enable this later *) |
|
|
|
Debug.debug Format.err_formatter "ERROR@\n"; |
|
|
|
let ok = |
|
|
|
if msg = "unknown operator" then |
|
|
|