Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2024-12-27 21:58:35 +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 -- ) : print-uint ( u1 u2 -- )
over /mod ( base mod quot ) over /mod ( base mod quot )
?dup if ?dup if
\ mod base quot base >r over r> \ ( base mod base quot )
>r over r>
recurse recurse
then then
dup 10 < if '0' + else 10 - 'a' + then emit dup 10 < if '0' + else 10 - 'a' + then emit