depth and more core.fth words

1 files changed, 10 insertions, 0 deletions

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);