Refactor to hopefully avoid compiler bugs

oot/save_context.ml

@@ -0,0 +1,26 @@
+open import "prelude.ml"
+open import "../pretty.ml"
+open import "../mem/decode.ml"
+open import "../mem/int.ml"
+
+type save_context = SaveContext of {
+  rupees: s16
+}
+
+instance decode save_context begin
+  let decode addr = SaveContext {
+    rupees = decode (addr + 0x0034)
+  }
+end
+
+instance prettyrecord save_context begin
+  let name _ = "SaveContext"
+  let fields (SaveContext x) =
+    [
+      ("rupees", S x.rupees)
+    ]
+end
+
+instance pretty save_context begin
+  let pretty = pretty_from_record
+end