mirror of
https://github.com/grin-compiler/grin.git
synced 2024-09-11 15:37:54 +03:00
remove double check
This commit is contained in:
parent
324c205afe
commit
cbeb675a2f
@ -1,14 +1,13 @@
|
||||
module Reducer.PrimOps (evalPrimOp) where
|
||||
|
||||
import Grin
|
||||
import PrimOps
|
||||
import Data.Map.Strict as Map
|
||||
|
||||
-- primitive functions
|
||||
primIntPrint [Lit (LInt64 a)] = pure $ Lit $ LInt64 $ a
|
||||
primIntPrint x = error $ "primIntPrint - invalid arguments: " ++ show x
|
||||
|
||||
evalPrimOp name args = checkName name $ case name of
|
||||
evalPrimOp name args = case name of
|
||||
"_prim_int_print" -> primIntPrint args
|
||||
-- Int
|
||||
"_prim_int_add" -> int_bin_op int (+)
|
||||
|
Loading…
Reference in New Issue
Block a user