From 18bcd5dd0e283100d25ca44e60f1705f3c028456 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 9 Feb 2023 21:54:58 -0500
Subject: depth and more core.fth words

---
 state.cpp | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'state.cpp')

diff --git a/state.cpp b/state.cpp
index 0b5c8fe..6165ce4 100644
--- a/state.cpp
+++ b/state.cpp
@@ -20,6 +20,16 @@
 
 #include <iterator>
 
+bool State::compiling() const
+{
+    return dict.read(Dictionary::Compiling);
+}
+
+void State::compiling(bool yes)
+{
+    dict.write(Dictionary::Compiling, yes);
+}
+
 Cell State::beyondip() const
 {
     return dict.read(ip + 1);
-- 
cgit v1.2.3