Call Modules.find_const
The exception is intercepted at the level of the find_const that was redefined in Typing otherwise
This commit is contained in:
parent
2e44402b03
commit
eb0db1dafc
|
@ -449,7 +449,7 @@ and typing_static_exp const_env se =
|
||||||
| Sfloat v -> Sfloat v, Tid Initial.pfloat
|
| Sfloat v -> Sfloat v, Tid Initial.pfloat
|
||||||
| Svar ln ->
|
| Svar ln ->
|
||||||
(try (* this can be a global const*)
|
(try (* this can be a global const*)
|
||||||
let { qualid = q; info = cd } = find_const ln in
|
let { qualid = q; info = cd } = Modules.find_const ln in
|
||||||
Svar (Modname q), cd.Signature.c_type
|
Svar (Modname q), cd.Signature.c_type
|
||||||
with Not_found -> (* or a static parameter *)
|
with Not_found -> (* or a static parameter *)
|
||||||
(match ln with
|
(match ln with
|
||||||
|
|
Loading…
Reference in a new issue