more work on s:prepend & s:append

FossilOrigin-Name: dee7513f8c955de08cb5a806765be52408856c2a2023642f03d1757ea4a11889
2024-08-28 12:57:06 +00:00 · 2024-08-28 12:57:06 +00:00 · 4d3c938ef7
commit 4d3c938ef7
parent 7c4aaf1a1f
3 changed files with 932 additions and 933 deletions
--- a/image/retro.forth
+++ b/image/retro.forth
@ -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 ;
 ~~~

--- a/BIN
+++ b/BIN
--- a/vm/nga-c/image.c
+++ b/vm/nga-c/image.c