diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-01-07 16:24:45 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-01-07 16:24:45 +0100 |
| commit | 3aa85f6a93b6ebec7beb7e590e6385754d60e920 (patch) | |
| tree | 63a9d66455c31d1e01563712e888378612441fed /app/Compiler.hs | |
| parent | be9beabac03d04d3570c924cdf3cd89d16ca555f (diff) | |
| download | prlg-3aa85f6a93b6ebec7beb7e590e6385754d60e920.tar.gz prlg-3aa85f6a93b6ebec7beb7e590e6385754d60e920.tar.bz2 | |
very assertive
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 |