diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/monomorphise.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/monomorphise.ml b/src/monomorphise.ml index 27abed6c..89648d1f 100644 --- a/src/monomorphise.ml +++ b/src/monomorphise.ml @@ -694,7 +694,7 @@ let try_app (l,ann) (Id_aux (id,_),args) = | _ -> None else if id = Id "ex_int" then match args with - | [E_aux (E_lit _,_) as exp] -> Some exp + | [E_aux (E_lit (L_aux (L_num _,_)),_) as exp] -> Some exp | _ -> None else if id = Id "vector_access" then match args with |