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

Fixed a bug

Browse source
This commit is contained in:
Koichi Nakamura 2021-01-03 17:51:07 +09:00
parent daef12b363
commit eb62d20642
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

@ -804,7 +804,7 @@ alias-builtin xor ^
: does>-helper
latest >cfa
3 cells + tuck ! \ replace nop
3 cells + ! \ replace nop
;
: does>
@ -812,7 +812,7 @@ alias-builtin xor ^
0 [compile] literal \ literal for xt
here cell- \ save addr of xt
\ fill xt and exit after docol of latest
\ replace nop with xt at runtime
compile does>-helper
[compile] ; \ finish compilation of initialization part