6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-22 20:34:07 +00:00
Code Issues Projects Releases Wiki Activity

add shim for postpone

Browse Source
This commit is contained in:
Philip Zembrod 2020-06-16 23:35:59 +02:00
parent 5eb24b6105
commit 9b3556a7fd
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
6502/C64/tests/ans-shim.fth
View File

@ -20,3 +20,5 @@
: sm/rem dup >r 2dup xor >r m/mod : sm/rem dup >r 2dup xor >r m/mod
over IF r> 0< IF 1+ swap r> - swap ELSE rdrop THEN over IF r> 0< IF 1+ swap r> - swap ELSE rdrop THEN
ELSE rdrop rdrop THEN ; ELSE rdrop rdrop THEN ;
: postpone state @ IF [compile] [compile] ELSE compile THEN ; immediate