@@ -319,6 +319,16 @@ execApp' env ctxt f@(EP _ n _) args =
319 primRes Fl (f1 + f2)
319 primRes Fl (f1 + f2)
320 getOp (UN "prim__addInt") [EConstant (I i1), EConstant (I i2)] =
320 getOp (UN "prim__addInt") [EConstant (I i1), EConstant (I i2)] =
321 primRes I (i1 + i2)
321 primRes I (i1 + i2)
322+ getOp (UN "prim__andB16") [EConstant (B16 i1), EConstant (B16 i2)] =
323+ primRes B16 (i1 .&. i2)
324+ getOp (UN "prim__andB32") [EConstant (B32 i1), EConstant (B32 i2)] =
325+ primRes B32 (i1 .&. i2)
326+ getOp (UN "prim__andB64") [EConstant (B64 i1), EConstant (B64 i2)] =
327+ primRes B64 (i1 .&. i2)
328+ getOp (UN "prim__andB8") [EConstant (B8 i1), EConstant (B8 i2)] =
329+ primRes B8 (i1 .&. i2)
330+ getOp (UN "prim__andBigInt") [EConstant (BI i1), EConstant (BI i2)] =
331+ primRes BI (i1 .&. i2)
322 getOp (UN "prim__andInt") [EConstant (I i1), EConstant (I i2)] =
332 getOp (UN "prim__andInt") [EConstant (I i1), EConstant (I i2)] =
323 primRes I (i1 .&. i2)
333 primRes I (i1 .&. i2)
324 getOp (UN "prim__charToInt") [EConstant (Ch c)] =
334 getOp (UN "prim__charToInt") [EConstant (Ch c)] =