Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

retro.forth: smaller, faster lteq?

Browse source 
FossilOrigin-Name: 72c0f243d4d4c50b3610627a9fa48aacd2e3c3ed5917aeab86d96153889293c9
This commit is contained in:
crc 2020-02-11 21:10:51 +00:00
parent 1cd22dcf51
commit 96fe3943bb
3 changed files with 621 additions and 622 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
image/retro.forth
View file

@ -498,7 +498,7 @@ The basic Rx kernel doesn't provide two useful forms which I'll
provide here. provide here.
~~~ ~~~
:lteq? (nn-f) dup-pair eq? &lt? dip or ; :lteq? (nn-f) dup-pair \eqpultpo \or...... ;
:gteq? (nn-f) swap lteq? ; :gteq? (nn-f) swap lteq? ;
~~~ ~~~

BIN
ngaImage
View file

Binary file not shown.

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

File diff suppressed because it is too large Load diff