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

Fixed a bug

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-05 18:19:36 +09:00
parent b1ed4e474a
commit c21c424d25
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bootstrap.fs
View file

@ -788,7 +788,7 @@ alias-builtin xor ^
( === Memory Operation === ) ( === Memory Operation === )
: +! ( n a-addr -- ) tuck @ + swap ! ; : +! ( n a-addr -- ) tuck @ + swap ! ;
: -! ( n a-addr -- ) tuck @ - swap ! ; : -! ( n a-addr -- ) tuck @ swap - swap ! ;
\ allocate n bytes \ allocate n bytes
: allot ( n -- c-addr ) : allot ( n -- c-addr )