rename word: exec -> call
This commit is contained in:
parent
2f2be8e2a2
commit
8a0a2cf68f
1 changed files with 2 additions and 2 deletions
4
pila.c
4
pila.c
|
@ -418,7 +418,7 @@ next_word_read_get(Pila *st)
|
|||
}
|
||||
|
||||
void
|
||||
exec_nat(Pila *st)
|
||||
call_nat(Pila *st)
|
||||
{
|
||||
Value waddr_w = pop_val(st);
|
||||
if (waddr_w.kind == VAL_NIL) {
|
||||
|
@ -692,7 +692,7 @@ main(int argc, char **argv)
|
|||
{.name = Sl(">#"), .kind = WORD_NATIVE, .nat = to_number_nat },
|
||||
{.name = Sl("parse-word"), .kind = WORD_NATIVE, .nat = parse_word_nat },
|
||||
{.name = Sl("find-word"), .kind = WORD_NATIVE, .nat = find_word_nat },
|
||||
{.name = Sl("exec"), .kind = WORD_NATIVE, .nat = exec_nat},
|
||||
{.name = Sl("call"), .kind = WORD_NATIVE, .nat = call_nat},
|
||||
{.name = Sl("eval"), .kind = WORD_NATIVE, .nat = eval_nat},
|
||||
{.name = Sl("dup"), .kind = WORD_NATIVE, .nat = dup_nat },
|
||||
{.name = Sl("drop"), .kind = WORD_NATIVE, .nat = drop_nat },
|
||||
|
|
Loading…
Add table
Reference in a new issue