prelude move

2023-11-22 15:59:05 -07:00
parent 8a051085c2
commit 06ad439e62
5 changed files with 25 additions and 24 deletions
--- a/src/TIM.hs
+++ b/src/TIM.hs
@@ -50,6 +50,7 @@ data Prim = ConP Int Int -- ConP Tag Arity
          | IntDivP
          | IntNegP
          | IntEqP
+          | CasePairP
          deriving (Show, Eq)

 instance Pretty Prim where
@@ -104,6 +105,7 @@ primitives =
    , ("/#",        IntDivP)
    , ("==#",       IntEqP)
    , ("if#",       IfP)
+    , ("casePair#", CasePairP)
    ]

 instantiate :: Expr -> TiHeap -> [(Name, Addr)] -> (TiHeap, Addr)