From 8a051085c21002bbebe82909d4460701cfb86c07 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 22 Nov 2023 15:44:41 -0700
Subject: [PATCH] delta duped code

---
 src/TIM.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/TIM.hs b/src/TIM.hs
index dcfc108..239eaaf 100644
--- a/src/TIM.hs
+++ b/src/TIM.hs
@@ -185,7 +185,7 @@ eval st = st : sts
 step :: TiState -> TiState
 step st =
     let TiState (top:_) _ h _ _ = st
-    in case fromMaybe (error "segfault!") (hLookup top h) of
+    in case hLookupUnsafe top h of
         NNum n            -> numStep  n      st
         NAp f x           -> apStep   f x    st
         NSupercomb n as b -> scStep   n as b st