From c3ebfec63da05a6d0ef3867285d8b8dc1e0af71e Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Tue, 7 Aug 2018 15:45:26 +0100
Subject: More updates for fixing variant types

---
 src/c_backend.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/c_backend.ml b/src/c_backend.ml
index adbc7cf6..70c50060 100644
--- a/src/c_backend.ml
+++ b/src/c_backend.ml
@@ -1812,7 +1812,7 @@ let rec specialize_variants ctx =
        List.iter (fun ctyp -> prerr_endline (string_of_ctyp ctyp)) unification;
        prerr_endline (string_of_id mono_id);
 
-       (* We need to case each cval to it's ctyp_suprema in order to put it in the most general constructor *)
+       (* We need to cast each cval to it's ctyp_suprema in order to put it in the most general constructor *)
        let casts =
          let cast_to_suprema (frag, ctyp) =
            let suprema = ctyp_suprema ctyp in
-- 
cgit v1.2.3