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

fix bug in deprecated name s:index-of-string for s:index/string

Browse source 
FossilOrigin-Name: d7ad402875dc4b249d42a4a25c6760c17a9df4b196b6ce3f52311d400f02c867
This commit is contained in:
crc 2021-09-07 13:04:32 +00:00
parent 30c5fc6e4f
commit 1d8c9f3600
5 changed files with 1330 additions and 1306 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
image/retro.forth
View file

@ -441,6 +441,18 @@ Apply q to x, y, and z.
:tri@ dup dup tri* ;
~~~
Alternative Names
~~~
:cleave/2 bi ;
:cleave/3 tri ;
:spread/2 bi* ;
:spread/3 tri* ;
:apply/2 bi@ ;
:apply/3 tri@ ;
~~~
### Combinators: Control
Execute quote until quote returns a flag of 0. In high level code:

BIN
ngaImage
View file

Binary file not shown.

7
package/extensions/deprecated.retro
View file

@ -1,13 +1,16 @@
These are planned to be removed in 2021.10. Please update
your sources to use the newer names.
~~~
:s:split (sc-ss) s:split/char ;
:s:split-on-string (ss-ss) s:split/string ;
:s:contains-char? s:contains/char? ;
:s:contains-string? s:contains/string? ;
:a:contains-string? s:contains/string? ;
:a:contains-string? a:contains/string? ;
:a:index-of a:index ;
:a:index-of-string a:index/string ;
:s:index-of s:index/char ;
:s:index-of s:index/string ;
:s:index-of-string s:index/string ;
~~~

1090
vm/nga-c-native-x86/image.c
View file

File diff suppressed because it is too large Load diff

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

File diff suppressed because it is too large Load diff