a bit of refactoring to allow addition of more tests

2025-03-22 05:18:25 +00:00
parent deb24c2063
commit 649bcb66e1
9 changed files with 2912 additions and 2709 deletions
--- a/fcore/build-search-list.sml
+++ b/fcore/build-search-list.sml
@@ -107,11 +107,9 @@ struct
            end
          else
            let
-              val searchList = 
-                if SearchList.exists (matchedIdx, searchList) then
-                  searchList
-                else
-                  SearchList.insert (matchedIdx, searchList)
+              val searchList =
+                if SearchList.exists (matchedIdx, searchList) then searchList
+                else SearchList.insert (matchedIdx, searchList)
            in
              helpFromRange
                ( origIdx