1
0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-03-23 20:31:58 +00:00

Remaining needed ANS shim words for passing the modified core word set test,

incl. the \vf word needed to comment out a few core tests that don't yet make sense for VolksForth.
This commit is contained in:
Philip Zembrod 2020-06-21 15:19:31 +02:00
parent 9b3556a7fd
commit 2eb2620641

@ -1,9 +1,12 @@
: \vf [compile] \ ;
: cells 2* ;
: s" [compile] " ; immediate
: s" [compile] " compile count ; immediate
: [char] [compile] ascii ; immediate
: char [compile] ascii ;
: invert not ;
@ -21,4 +24,22 @@
over IF r> 0< IF 1+ swap r> - swap ELSE rdrop THEN
ELSE rdrop rdrop THEN ;
: postpone state @ IF [compile] [compile] ELSE compile THEN ; immediate
: postpone ' dup >name c@ $40 and
IF , ELSE [compile] compile compile , THEN ; immediate
: align ;
: aligned ;
: cell+ 2+ ;
: char+ 1+ ;
: chars ;
: 2@ dup 2+ @ swap @ ;
: 2! under ! 2+ ! ;
: recurse last @ name> , ; immediate
: >number ( ud1 c-addr1 u1 -- ud2 c-addr2 u2 )
BEGIN dup 0= IF exit THEN
>r count digit? WHILE accumulate r> 1- REPEAT 1- r> ;
: accept expect span @ ;