find

2 files changed, 14 insertions, 5 deletions

diff --git a/libalee/corewords.cpp b/libalee/corewords.cpp
index 1a09936..f22772c 100644
--- a/libalee/corewords.cpp
+++ b/libalee/corewords.cpp
@@ -39,9 +39,8 @@ void newdef(State& state, Word word)
     dict.addDefinition(word);
     state.push(addr);
 };
-void tick(State& state)
+void find(State& state, Word word)
 {
-    auto word = getword(state);
     if (auto j = state.dict.find(word); j > 0) {
         state.push(state.dict.getexec(j));
         auto imm = state.dict.read(j) & Dictionary::Immediate;
@@ -165,7 +164,7 @@ execute:
         state.compiling(true);
         break;
     case 23: // tick
-        tick(state);
+        find(state, getword(state));
         break;
     case 24: // execute
         index = state.pop();
@@ -213,6 +212,16 @@ execute:
         state.load(st);
         }
         break;
+    case 33: // find
+        {
+        const Addr caddr = state.pop();
+        const Word word {
+            static_cast<Addr>(caddr + 1),
+            static_cast<Addr>(caddr + 1 + state.dict.readbyte(caddr))
+        };
+        find(state, word);
+        }
+        break;
     default:
         state.push(index - WordCount);
         break;
diff --git a/libalee/corewords.hpp b/libalee/corewords.hpp
index 5798f59..684b94b 100644
--- a/libalee/corewords.hpp
+++ b/libalee/corewords.hpp
@@ -31,7 +31,7 @@ void user_sys(State&);
 class CoreWords
 {
 public:
-    constexpr static std::size_t WordCount = 33;
+    constexpr static std::size_t WordCount = 34;
     constexpr static int Semicolon = 26;
 
     /**
@@ -53,7 +53,7 @@ public:
         "<\0&\0|\0^\0"
         "<<\0>>\0:\0_'\0execute\0"
         "exit\0;\0_jmp0\0_jmp\0"
-        "depth\0_rdepth\0_in\0_ev\0";
+        "depth\0_rdepth\0_in\0_ev\0find\0";
 };
 
 #endif // ALEEFORTH_COREWORDS_HPP