|
@@ -3495,7 +3495,7 @@ and call ctx vthis vfun pl p =
|
|
|
| Stack_overflow -> exc (VString "Compiler Stack overflow")
|
|
|
| Sys_error msg | Failure msg -> exc (VString msg)
|
|
|
| Unix.Unix_error (_,cmd,msg) -> exc (VString ("Error " ^ cmd ^ " " ^ msg))
|
|
|
- (* | Invalid_expr -> exc (VString "Invalid input value") *)
|
|
|
+ | Invalid_expr -> exc (VString "Invalid input value")
|
|
|
| Builtin_error | Invalid_argument _ -> exc (VString "Invalid call")) in
|
|
|
ctx.vthis <- oldthis;
|
|
|
ctx.venv <- oldenv;
|