grin-compiler/grin
1
1
Fork 0
mirror of https://github.com/grin-compiler/grin.git synced 2024-09-11 15:37:54 +03:00
Code Issues Projects Releases Wiki Activity

remove double check

Browse Source
This commit is contained in:
Csaba Hruska 2018-03-11 15:02:42 +01:00
parent 324c205afe
commit cbeb675a2f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
grin/src/Reducer/PrimOps.hs
View File

@ -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 (+)