diff options
author | Jonathan Protzenko | 2023-01-23 18:17:42 -0800 |
---|---|---|
committer | Son HO | 2023-06-04 21:44:33 +0200 |
commit | cbcaa965c4ee5597bb8f4f8bee7fba87729e7154 (patch) | |
tree | fb6d55d9cd9248e26fc6f16f8521e6c7e3fb2ef0 /compiler/SymbolicToPure.ml | |
parent | df2e79f88b04ae7bf43586eb83ea0461fb547b3b (diff) |
Initial Lean backend, WIP
Diffstat (limited to 'compiler/SymbolicToPure.ml')
-rw-r--r-- | compiler/SymbolicToPure.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/SymbolicToPure.ml b/compiler/SymbolicToPure.ml index c6ef4297..f357f33b 100644 --- a/compiler/SymbolicToPure.ml +++ b/compiler/SymbolicToPure.ml @@ -2615,6 +2615,8 @@ let wrap_in_match_fuel (fuel0 : VarId.id) (fuel : VarId.id) (body : texpression) let match_ty = body.ty in let match_e = Switch (fuel0, Match [ fail_branch; success_branch ]) in { e = match_e; ty = match_ty } + | Lean -> + failwith "Not handling fuel in Lean" let translate_fun_decl (ctx : bs_ctx) (body : S.expression option) : fun_decl = (* Translate *) |