fix type errors in normal-mode-text-builder.sml

2025-09-29 14:55:20 +01:00
parent d44799a794
commit 8f49cdca13
3 changed files with 40 additions and 30 deletions
--- a/fcore/persistent-vector.sml
+++ b/fcore/persistent-vector.sml
@@ -13,7 +13,7 @@ struct

  fun isEmpty t =
    case t of
-      LEAF (_, sizes) = Vector.length sizes = 0
+      LEAF (_, sizes) => Vector.length sizes = 0
    | _ => false

  val empty = LEAF (#[], #[])