exa/prlg
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

disambiguate

Browse source
This commit is contained in:
Mirek Kratochvil 2023-01-04 17:33:08 +01:00
parent 1f424d332e
commit be9beabac0
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
app/Builtins.hs
View file

@ -32,11 +32,11 @@ bi = Builtin
showTerm itos heap = runIdentity . heapStruct atom struct hrec heap showTerm itos heap = runIdentity . heapStruct atom struct hrec heap
where where
atom (Atom a) = pure $ itos M.! a atom (Atom a) = pure $ "'" ++ itos M.! a ++ "'"
atom (Number n) = pure (show n) atom (Number n) = pure (show n)
atom VoidRef = pure "_" atom VoidRef = pure "_"
struct (Struct (IR.Id h _)) args = struct (Struct (IR.Id h _)) args =
pure $ itos M.! h ++ "(" ++ intercalate "," args ++ ")" pure $ "'" ++ itos M.! h ++ "'(" ++ intercalate "," args ++ ")"
hrec (HeapRef hr) ref = hrec (HeapRef hr) ref =
pure $ pure $
(if hr == ref (if hr == ref