crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more work on s:prepend & s:append

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
image/retro.forth
View file

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

BIN
ngaImage
View file

Binary file not shown.

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

File diff suppressed because it is too large Load diff