Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-25 21:58:22 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use 'depth' in definition of '.s'

Browse source
This commit is contained in:
Andrew Fuller 2022-08-17 19:19:59 -07:00
parent ca90c5df38
commit 5b40121201
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bootstrap.fs
View file

@ -1633,7 +1633,7 @@ do-stack 16 cells + do-sp !
: rdepth rp0 rp@ - cell / ; : rdepth rp0 rp@ - cell / ;
: .s ( -- ) : .s ( -- )
sp0 sp@ - cell- cell / ( depth of the stack ) depth
'<' emit 0 u.r '>' emit space '<' emit 0 u.r '>' emit space
sp@ sp0 ( beg end ) sp@ sp0 ( beg end )
begin 2dup < while begin 2dup < while