|
@@ -179,7 +179,7 @@ let throw_native ctx e_thrown t p =
|
|
else
|
|
else
|
|
e_thrown
|
|
e_thrown
|
|
in
|
|
in
|
|
- mk (TThrow e_native) t p
|
|
|
|
|
|
+ e_native
|
|
|
|
|
|
let set_needs_exception_stack v =
|
|
let set_needs_exception_stack v =
|
|
if not (Meta.has Meta.NeedsExceptionStack v.v_meta) then
|
|
if not (Meta.has Meta.NeedsExceptionStack v.v_meta) then
|