fix compiler errors in normal-search-finish.sml

2025-09-12 13:02:32 +01:00
parent 504a054df1
commit 22752e3602
2 changed files with 20 additions and 9 deletions
--- a/fcore/normal-mode/normal-finish.sml
+++ b/fcore/normal-mode/normal-finish.sml
@@ -203,7 +203,7 @@ struct
        , visualScrollColumn
        )
      val drawMsg = Vector.concat drawMsg
-      val drawMsg = DrawMsg.DRAW_TEXT drawMsg
+      val drawMsg = [DrawMsg.DRAW_TEXT drawMsg]
    in
      let
        val _ = raise Fail "centering to line is unimplemented\n"