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