From 3aa85f6a93b6ebec7beb7e590e6385754d60e920 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 7 Jan 2023 16:24:45 +0100
Subject: very assertive

---
 app/Compiler.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'app/Compiler.hs')

diff --git a/app/Compiler.hs b/app/Compiler.hs
index 206bc40..c510535 100644
--- a/app/Compiler.hs
+++ b/app/Compiler.hs
@@ -85,6 +85,7 @@ heapStructPrlgInt :: Monad m => m PrlgInt -> Heap -> Int -> m PrlgInt
 heapStructPrlgInt heaperr heap ref = heapStruct atom struct hrec heap ref
   where
     atom (Atom s) = pure $ AtomI s
+    atom (Number n) = pure $ NumI n
     atom VoidRef = pure $ VoidI
     struct (Struct s) args = pure $ CallI (str s) args
     hrec (HeapRef r) ref
-- 
cgit v1.2.3