functorise some boilerplate code to start a DFA loop

2025-07-20 09:39:17 +01:00
parent 25fb8bfc5e
commit 10b76d98c5
5 changed files with 122 additions and 89 deletions
--- a/fcore/cursor.sml
+++ b/fcore/cursor.sml
@@ -886,7 +886,7 @@ struct
    toNextWord (lineGap, cursorIdx, helpNextWord)

  (* equivalent of vi's 'W' command *)
-  val nextWORD = ViWORDDfa.nextWORD
+  val nextWORD = ViWORDDfa.next

  fun helpPrevWord (strPos, str, absIdx, strTl, lineTl) =
    if strPos < 0 then