1 \ Words supporting deferred execution
4 ." Tried to execute undefined deferred word." cr abort ;
7 create ['] abort-defer ,
14 : defer! ( cfa cfaDef -- )
21 0= abort" Tried to define unknown deferred word."
26 ['] lit , , ['] defer! ,
38 \ Need this for tail call optimization
40 : goto-deferred ( cfa -- )
41 R> drop >body @ >body >R ;