diff options
Diffstat (limited to 'app/Compiler.hs')
| -rw-r--r-- | app/Compiler.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |