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

fix a stack comment in the matrix example

Browse source 
FossilOrigin-Name: 5424441640ddb4b7c15658abf282625533bedcd47227bc901da14acd44cc286a
This commit is contained in:
crc 2018-11-24 23:28:26 +00:00
parent 766c4345b4
commit 4fbcc9a5ac
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

@ -11,7 +11,7 @@ couple rushedly written tests.
:fill (na--a) [ store-next ] times ; :fill (na--a) [ store-next ] times ;
---reveal--- ---reveal---
:matrix (nms--a) create initialise ; :matrix (nms--a) create initialise ;
:matrix<xs> (x1xn...nms--a) prepare matrix swap fill drop ; :matrix<xs> (xn...x1nms-) prepare matrix swap fill drop ;
}} }}
~~~ ~~~