forth: forgot to commit high.fs...
This commit is contained in:
parent
ac914c3847
commit
d5b6659507
14
forth/high.fs
Normal file
14
forth/high.fs
Normal 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
|
Loading…
Reference in New Issue
Block a user