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
|
void
|
||||||
exec_nat(Pila *st)
|
call_nat(Pila *st)
|
||||||
{
|
{
|
||||||
Value waddr_w = pop_val(st);
|
Value waddr_w = pop_val(st);
|
||||||
if (waddr_w.kind == VAL_NIL) {
|
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(">#"), .kind = WORD_NATIVE, .nat = to_number_nat },
|
||||||
{.name = Sl("parse-word"), .kind = WORD_NATIVE, .nat = parse_word_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("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("eval"), .kind = WORD_NATIVE, .nat = eval_nat},
|
||||||
{.name = Sl("dup"), .kind = WORD_NATIVE, .nat = dup_nat },
|
{.name = Sl("dup"), .kind = WORD_NATIVE, .nat = dup_nat },
|
||||||
{.name = Sl("drop"), .kind = WORD_NATIVE, .nat = drop_nat },
|
{.name = Sl("drop"), .kind = WORD_NATIVE, .nat = drop_nat },
|
||||||
|
|
Loading…
Add table
Reference in a new issue