From ec3b03c4fd2fc9ecad4dd810ba7b6e4766ff286b Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Mon, 1 Jan 2024 11:45:50 -0500
Subject: remove addNativeWord

---
 libalee/dictionary.cpp | 16 ----------------
 1 file changed, 16 deletions(-)

(limited to 'libalee/dictionary.cpp')

diff --git a/libalee/dictionary.cpp b/libalee/dictionary.cpp
index e946c59..e4f6761 100644
--- a/libalee/dictionary.cpp
+++ b/libalee/dictionary.cpp
@@ -28,22 +28,6 @@ void Dictionary::initialize()
     write(Source, Input + sizeof(Cell));
 }
 
-LIBALEE_SECTION
-void Dictionary::addNativeWord(const char *s, void (*func)(State&))
-{
-    const Addr h = read(Here);
-    Addr n = h + sizeof(Cell);
-    for (; *s; ++s, ++n)
-        writebyte(n, *s);
-    addDefinition(Word(h + sizeof(Cell), n));
-    add(CoreWords::token("_nx"));
-    add((Cell)func);
-
-    const auto dcell = h - latest();
-    write(h, (read(h) & 0x1F) | Native | static_cast<Cell>(dcell << DistancePos));
-    latest(h);
-}
-
 LIBALEE_SECTION
 Addr Dictionary::allot(Cell amount) noexcept
 {
-- 
cgit v1.2.3