Rename (compile) to compile-helper

This commit is contained in:
Koichi Nakamura 2021-01-02 02:43:20 +09:00
parent 810890de13
commit f2ce995009

View file

@ -473,7 +473,7 @@ alias-builtin xor ^
\ ( xt -- )
\ postpone compilation of xt
: (compile)
: compile-helper
[compile] literal \ compile 'literal'
[ ' , ] literal , \ compile ,
;
@ -481,7 +481,7 @@ alias-builtin xor ^
\ compile: ( "name" -- )
\ 'compile word' compiles word *later* even if it is immediate
: compile
' (compile)
' compile-helper
; immediate
\ ( -- xt )