forth: forgot to commit high.fs...

This commit is contained in:
Virgil Dupras 2020-03-21 21:22:07 -04:00
parent ac914c3847
commit d5b6659507

14
forth/high.fs Normal file
View File

@ -0,0 +1,14 @@
( Higher level stuff that generally requires all core units )
: ."
LIT
BEGIN
C< DUP ( c c )
( 34 is ASCII for " )
DUP 34 = IF DROP DROP 0 0 THEN
C,
0 = UNTIL
COMPILE (print)
; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE