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

u.r and .r does not output following space

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-04 09:31:40 +09:00
parent 76c605af84
commit 0327f5e68b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bootstrap.fs
View file

@ -982,7 +982,7 @@ decimal \ set default to decimal
\ Display unsigned integer u right aligned in n characters.
: u.r ( u n -- )
over uwidth
- spaces u.
- spaces base @ swap print-uint
;
\ Display signed integer n1 right aligned in n2 characters.
@ -994,7 +994,7 @@ decimal \ set default to decimal
dup uwidth 1+
rot swap - spaces
'-' emit
u.
base @ swap print-uint
then
;