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

fix a range issue in c:visibile?

Browse source 
FossilOrigin-Name: 38aa885ef7576e5cb4bc02520868e810c8b3ef128002aef84202842d641b49fe
This commit is contained in:
crc 2019-04-15 12:54:41 +00:00
parent 7011b8c5e8
commit 43c27bb13a
4 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
interfaces/image.c
View file

@ -277,7 +277,7 @@ int32_t ngaImage[] = { 1793,-1,9129,9146,201906,0,10,1,10,2,10,3,10,4,10,5,10,6,
58,108,111,119,101,114,99,97,115,101,63,0,1,97,1,122,2049,2944,10,5475,
5514,147,99,58,117,112,112,101,114,99,97,115,101,63,0,1,65,1,90,2049,
2944,10,5498,5533,147,99,58,100,105,103,105,116,63,0,1,48,1,57,2049,2944,
10,5521,5554,147,99,58,118,105,115,105,98,108,101,63,0,1,31,1,126,2049,
10,5521,5554,147,99,58,118,105,115,105,98,108,101,63,0,1,32,1,126,2049,
2944,10,5540,5573,147,99,58,118,111,119,101,108,63,0,2049,3702,97,101,105,111,
117,65,69,73,79,85,0,1,5575,4,2049,4159,10,5561,5608,147,99,58,99,111,
110,115,111,110,97,110,116,63,0,2,2049,5468,1793,5618,2049,5573,2049,2725,10,1,

2
interfaces/rre_image.c
View file

@ -277,7 +277,7 @@ int32_t ngaImage[] = { 1793,16229,16407,16449,201906,0,10,1,10,2,10,3,10,4,10,5,
58,108,111,119,101,114,99,97,115,101,63,0,1,97,1,122,2049,2944,10,5475,
5514,147,99,58,117,112,112,101,114,99,97,115,101,63,0,1,65,1,90,2049,
2944,10,5498,5533,147,99,58,100,105,103,105,116,63,0,1,48,1,57,2049,2944,
10,5521,5554,147,99,58,118,105,115,105,98,108,101,63,0,1,31,1,126,2049,
10,5521,5554,147,99,58,118,105,115,105,98,108,101,63,0,1,32,1,126,2049,
2944,10,5540,5573,147,99,58,118,111,119,101,108,63,0,2049,3702,97,101,105,111,
117,65,69,73,79,85,0,1,5575,4,2049,4159,10,5561,5608,147,99,58,99,111,
110,115,111,110,97,110,116,63,0,2,2049,5468,1793,5618,2049,5573,2049,2725,10,1,

2
literate/RetroForth.md
View file

@ -1015,7 +1015,7 @@ First are a bunch of words to help identify character values.
:c:lowercase? (c-f) $a $z n:between? ;
:c:uppercase? (c-f) $A $Z n:between? ;
:c:digit? (c-f) $0 $9 n:between? ;
:c:visible? (c-f) #31 #126 n:between? ;
:c:visible? (c-f) #32 #126 n:between? ;
:c:vowel? (c-f) 'aeiouAEIOU swap s:contains-char? ;
:c:consonant? (c-f)
dup c:letter? [ c:vowel? not ] [ drop FALSE ] choose ;

BIN
ngaImage
View file

Binary file not shown.