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

takawiri: use a loop in sections

Browse source 
FossilOrigin-Name: 31ae0e6c2b93ea57fa827564e4d89304af6001dc389e4b8ed334c08a21237b67
This commit is contained in:
crc 2024-01-23 02:47:08 +00:00
parent 9ed5d12c71
commit 4ace2882d3
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
takawiri.retro
View file

@ -29,12 +29,12 @@ ioctl:term-size (rows,cols) 'LT:W const 'LT:H const
~~~
LT:W #100 lt? [ 'Terminal_too_narrow! s:put nl bye ] if
LT:H #27 lt? [ 'Terminal_too_short! s:put nl bye ] if
LT:H #27 lt? [ 'Terminal_too_short! s:put nl bye ] if
~~~
# Dependencies
Load depenencies from the library.
Load dependencies from the library.
~~~
{ 'konilo 'termina 'tob } &library:load a:for-each
@ -111,9 +111,8 @@ Draw the section separators.
:--- (n-) [ $- c:put ] times sp ;
:sections (-)
dss:sep
#6 TOB:W #4 n:add vt:row,col length ---
#12 TOB:W #4 n:add vt:row,col length ---
#18 TOB:W #4 n:add vt:row,col length ---
#3 [ I n:inc #6 n:mul TOB:W #4 n:add vt:row,col length --- ]
indexed-times
vt:reset ;
~~~