From 73e9023af0ea4ee56dc1d94190a14919f535eedc Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sun, 26 Nov 2023 16:48:02 -0500
Subject: catch stack errors

---
 source/core.hpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'source/core.hpp')

diff --git a/source/core.hpp b/source/core.hpp
index f5149cf..4e4c1e6 100644
--- a/source/core.hpp
+++ b/source/core.hpp
@@ -31,8 +31,8 @@ extern void getinput();
  */
 constexpr auto fexit = WordWrap<[] {
     extern FuncList IP;
-    extern Cell *RP;
-    IP = reinterpret_cast<FuncList>(*RP--);
+    extern Cell rpop();
+    IP = reinterpret_cast<FuncList>(rpop());
 }>();
 
 void jump(FuncList ip); /** Jumps to the given instruction pointer. */
-- 
cgit v1.2.3