more work on s:prepend & s:append

FossilOrigin-Name: dee7513f8c955de08cb5a806765be52408856c2a2023642f03d1757ea4a11889
This commit is contained in:
crc 2024-08-28 12:57:06 +00:00
parent 7c4aaf1a1f
commit 4d3c938ef7
3 changed files with 932 additions and 933 deletions

View file

@ -937,11 +937,10 @@ a string.
~~~
:s:prepend (ss-s)
s:temp [ dup s:oversize?
s:temp [ dup-pair &s:length bi@ + @TempStringMax gt?
&drop-pair
[ dup s:length + [ dup s:length n:inc ] dip swap copy ]
choose
] sip ;
choose ] sip ;
:s:append (ss-s) swap s:prepend ;
~~~

BIN
ngaImage

Binary file not shown.

File diff suppressed because it is too large Load diff