From 27aa055f59eff62bb7fe054ab9464d6ff2dd412f Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 28 Nov 2024 08:55:09 -0500
Subject: pointer and cast cleanup

---
 main.cpp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'main.cpp')

diff --git a/main.cpp b/main.cpp
index 16de440..d3bbe42 100644
--- a/main.cpp
+++ b/main.cpp
@@ -38,6 +38,7 @@ int main(int argc, const char *argv[])
         std::cout << buf << ' ';
     });
     fth->add("emit", [](auto) { std::cout << static_cast<char>(fth->pop()); });
+    fth->add("dictsize", [](auto) { fth->push(dict.size() * sizeof(forth::cell)); });
 
     for (auto arg : args) {
         if (std::ifstream file {arg}; parse_stream(fth, file))
-- 
cgit v1.2.3