update s:filter to truncate overly long strings before filtering

FossilOrigin-Name: d019ed025bf88ed546375392c8818cc9979ab50921815731a57db643ccb80147
2024-08-28 18:53:36 +00:00 · 2024-08-28 18:53:36 +00:00 · 16ac3a1e9d
commit 16ac3a1e9d
parent 4d3c938ef7
4 changed files with 907 additions and 904 deletions
--- a/1
+++ b/1
@ -33,6 +33,7 @@
  - `s:append`, `s:prepend` now truncate if source string is
    at `TempStringMax`
  - `s:temp` now truncates strings longer than `TempStringMax`
+  - `s:filter` now truncates strings longer than `TempStringMax`

 - library

--- a/image/retro.forth
+++ b/image/retro.forth
@ -1051,6 +1051,7 @@ from another string that are filtered by a quotation.

 ~~~
 :s:filter (sq-s)
+  over s:oversize? [ &s:truncate dip ] if
  [ s:empty buffer:set swap
    [ dup-pair swap call
        &buffer:add &drop choose
--- a/BIN
+++ b/BIN
--- a/vm/nga-c/image.c
+++ b/vm/nga-c/image.c