Miroirs/planckforth
1
0
Fork 0
mirror of https://github.com/nineties/planckforth synced 2025-01-13 08:01:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

minor fix

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-08 04:28:42 +09:00
parent f479467600
commit 9608f4f540
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bootstrap.fs
View file

@ -1124,8 +1124,7 @@ decimal \ set default to decimal
1+ >r \ increment c-to, save
1+ \ increment c-from
r> r>
repeat
drop drop drop
repeat 3drop
;
\ we already have cmove,
@ -1139,7 +1138,7 @@ decimal \ set default to decimal
1+ swap 1+ swap
repeat
over c!
drop drop
2drop
;
\ ( c-addr -- )