summaryrefslogtreecommitdiff
path: root/compiler/Main.ml
diff options
context:
space:
mode:
authorstuebinm2024-06-29 21:31:22 +0200
committerstuebinm2024-06-29 22:11:04 +0200
commit59214186b817329342d9d72e23adf12f7a3b1348 (patch)
tree8292abe4ca52e9742f6a4ff9d102565a6362e665 /compiler/Main.ml
parent5590dc87a5426cbcb32a2387701d179e107a9792 (diff)
had some fun writing an IsabelleHOL backend
(do not actually use this, most things are broken, and the primitives lib barely exists and is simply incorrect. But it is enough to create syntax-correct Isabelle code for relatively simply rust code, as long as it does not contain any uses of traits)
Diffstat (limited to 'compiler/Main.ml')
-rw-r--r--compiler/Main.ml6
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/Main.ml b/compiler/Main.ml
index d78b9081..ff6a4d67 100644
--- a/compiler/Main.ml
+++ b/compiler/Main.ml
@@ -253,6 +253,12 @@ let () =
(* We don't support fuel for the HOL4 backend *)
if !use_fuel then (
log#error "The HOL4 backend doesn't support the -use-fuel option";
+ fail ())
+ | IsabelleHOL ->
+ record_fields_short_names := true;
+ (* We don't support fuel for the IsabelleHOL backend *)
+ if !use_fuel then (
+ log#error "The IsabelleHOL backend doesn't support the -use-fuel option";
fail ()))
in