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

fix comment

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-11 07:58:57 +09:00
parent 9f862f44e1
commit 8b5782fc19
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
bootstrap.fs
View file

@ -1017,8 +1017,7 @@ decimal \ set default to decimal
: print-uint ( u1 u2 -- )
over /mod ( base mod quot )
?dup if
\ mod base quot base
>r over r>
>r over r> \ ( base mod base quot )
recurse
then
dup 10 < if '0' + else 10 - 'a' + then emit