fix compilation error

This commit is contained in:
Simon Cruanes 2026-03-19 03:35:26 +00:00
parent 5fcbaaacac
commit f7a04f1f93

View file

@ -84,6 +84,7 @@ let rec conv_ty (ctx : Ctx.t) (t : PA.ty) : Ty.t =
let l = List.map (conv_ty ctx) l in
Ty.app_l ctx.tst ty_f l
| PA.Ty_arrow _ -> ill_typed ctx "cannot handle arrow types"
| PA.Ty_bv _ -> ill_typed ctx "cannot handle bitvector types"
let is_num s =
let is_digit_or_dot = function