humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

log an exception if search-thread encounters a failure

Browse Source
This commit is contained in:
Humza Shahid
2025-10-08 06:51:52 +01:00
parent 4d1b2073dc
commit 108e021fdb
3 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fcore/search-list/search-list.sml
View File

@@ -6,7 +6,7 @@ struct
let let
val iterator = LineGap.moveIteratorToIdx (idx, iterator) val iterator = LineGap.moveIteratorToIdx (idx, iterator)
in in
if LineGap.isIteratorAtEnd iterator then if idx = #textLength iterator then
if prevFinalPos < 0 then acc if prevFinalPos < 0 then acc
else PersistentVector.append (startPos, prevFinalPos, acc) else PersistentVector.append (startPos, prevFinalPos, acc)
else else

2
lib/brolib-sml

Submodule lib/brolib-sml updated: 1d6213636e...ec62efb40c

1
shell/search-thread.sml
View File

@@ -7,6 +7,7 @@ struct
val (buffer, dfa, time) = Mailbox.recv SearchMailbox.mailbox val (buffer, dfa, time) = Mailbox.recv SearchMailbox.mailbox
val iterator = LineGap.makeStringIterator buffer val iterator = LineGap.makeStringIterator buffer
val searchList = SearchList.build (iterator, dfa) val searchList = SearchList.build (iterator, dfa)
handle e => ExceptionLogger.log e
val msg = InputMsg.WITH_SEARCH_LIST (searchList, time) val msg = InputMsg.WITH_SEARCH_LIST (searchList, time)
val () = InputMailbox.append msg val () = InputMailbox.append msg
in in