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

minor tweak to Matrix example

Browse source 
FossilOrigin-Name: 12b1323959ee798f72be5a69b151028883440946afcdcb37b73c27dca1265011
This commit is contained in:
crc 2019-01-03 21:53:59 +00:00
parent 36f2f1199a
commit 5ff8abaa73
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
example/Matrix.forth
View file

@ -29,7 +29,7 @@ get-next #1 -eq? [ broken ] if
Test matrix<xs>, should be "contained!" thrice. Test matrix<xs>, should be "contained!" thrice.
``` ```
#30 #20 #10 #3 #1 'tester s:keep matrix<xs> #30 #20 #10 #3 #1 "tester matrix<xs>
{ tester #2 + #3 [ fetch-next swap ] times drop } { tester #2 + #3 [ fetch-next swap ] times drop }
[ { #10 #20 #30 } set:contains? [ 'contained! s:put sp nl ] if ] set:for-each [ { #10 #20 #30 } set:contains? [ 'contained! s:put sp nl ] if ] set:for-each
``` ```