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

retro.forth: fix a bug in s:index-of-string

Browse source 
FossilOrigin-Name: a754653708caa46fd198e6a720749a873928cc21659a47bc939756541aa7c907
This commit is contained in:
crc 2020-02-13 13:43:52 +00:00
parent be3ae735e6
commit 141fca1dc6
3 changed files with 517 additions and 517 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
image/retro.forth
View file

@ -888,7 +888,7 @@ a given substring is in a string.
:s:index-of-string (ss-n)
over [ [ setup
[ &extract dip [ &n:inc dip ] dip here s:hash over eq? location ] times
] buffer:preserve drop-pair drop ] dip - n:dec ;
] buffer:preserve drop-pair drop ] dip - n:dec #-1 n:max ;
}}
~~~

BIN
ngaImage
View file

Binary file not shown.

1032
vm/nga-c/retro-image.c
View file

File diff suppressed because it is too large Load diff