From 2f2be8e2a2ced9e60e96b7f66ce02fdd35a4ed7f Mon Sep 17 00:00:00 2001
From: tocariimaa <tocariimaa@firemail.cc>
Date: Wed, 5 Feb 2025 19:01:25 -0300
Subject: [PATCH] define tick word as an user word instead of a nat

---
 pila.c | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/pila.c b/pila.c
index 8d5f2a1..be47275 100644
--- a/pila.c
+++ b/pila.c
@@ -417,17 +417,6 @@ next_word_read_get(Pila *st)
 	return w;
 }
 
-void
-tick_nat(Pila *st)
-{
-	Word *w = next_word_read_get(st);
-	if (w == nil) {
-		push_val(st, BOX_INTN(0));
-		return;
-	}
-	push_val(st, BOX_INTN((u64)w));
-}
-
 void
 exec_nat(Pila *st)
 {
@@ -700,7 +689,6 @@ main(int argc, char **argv)
 		{	.name = Sl(";"), .flags = WRDF_IMMEDIATE,
 			.kind = WORD_NATIVE, .nat = compile_end_nat
 		},
-		{.name = Sl("'"), .kind = WORD_NATIVE, .nat = tick_nat },
 		{.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 },
@@ -719,6 +707,8 @@ main(int argc, char **argv)
 	for (isize i = 0; i < countof(natws); ++i)
 		add_word(&st, &natws[i]);
 
+	eval(&st, Sl(": ' parse-word find-word ;"));
+
 	if (argc > 1) {
 		eval(&st, Str_from_c(argv[1]));
 	}