duskos

commit ab7e21b55f0cccef79f9a2f41f0278c5db80ace6
parent df558a99b817374975be54aca7b0bf9860c7ca66
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Thu,  2 Jun 2022 06:50:20 -0400

Add [compile] and abort"

Diffstat:
M
boot.fs
 | 
2
++

1 file changed, 2 insertions(+), 0 deletions(-)
diff --git a/boot.fs b/boot.fs
@@ -1,6 +1,7 @@
 : immediate current 1- dup c@ $80 or swap c! ;
 : ['] ' litn ; immediate
 : compile ' litn ['] call, call, ; immediate
+: [compile] ' call, ; immediate
 : if compile (?br) here 4 allot ; immediate
 : then here swap ! ; immediate
 : else compile (br) here 4 allot here rot ! ; immediate
@@ -24,6 +25,7 @@
 : ( S" )" waitw ; immediate
 ( hello, another comment! )
 : stype >r begin c@+ emit next drop ;
+: abort" [compile] S" compile stype compile abort ; immediate
 : _ curword stype S"  word not found" stype abort ;
 current to (wnf)
 : _ S" stack underflow" stype abort ;