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

Merge pull request #55 from qartis/use-depth-for-.s

Browse source 
Use 'depth' in definition of '.s'
This commit is contained in:
Koichi NAKAMURA 2022-08-18 11:30:37 +09:00 committed by GitHub
commit f7356eb63b
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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 / ;
: .s ( -- )
sp0 sp@ - cell- cell / ( depth of the stack )
depth
'<' emit 0 u.r '>' emit space
sp@ sp0 ( beg end )
begin 2dup < while