Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

update s:filter to truncate overly long strings before filtering

Browse source 
FossilOrigin-Name: d019ed025bf88ed546375392c8818cc9979ab50921815731a57db643ccb80147
This commit is contained in:
crc 2024-08-28 18:53:36 +00:00
parent 4d3c938ef7
commit 16ac3a1e9d
4 changed files with 907 additions and 904 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
RELEASE-NOTES
View file

@ -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

1
image/retro.forth
View file

@ -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

BIN
ngaImage
View file

Binary file not shown.

1809
vm/nga-c/image.c
View file

File diff suppressed because it is too large Load diff