mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 01:48:06 +11:00
dfe474ca0e
This allows us to move words like ABORT" to xcomp-core, which is I think the last roadblock before being able to unify all drivers into a single xcomp layer.
14 lines
228 B
Plaintext
14 lines
228 B
Plaintext
: ,"
|
|
BEGIN
|
|
C<
|
|
( 34 is ASCII for " )
|
|
DUP 34 = IF DROP EXIT THEN C,
|
|
AGAIN ;
|
|
|
|
: ."
|
|
34 , ( 34 == litWord ) ," 0 C,
|
|
COMPILE (print)
|
|
; IMMEDIATE
|
|
|
|
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE
|