projects
/
matthijs
/
master-project
/
cλash.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'cλash' of http://git.stderr.nl/matthijs/projects/master-project
[matthijs/master-project/cλash.git]
/
GlobalNameTable.hs
diff --git
a/GlobalNameTable.hs
b/GlobalNameTable.hs
index 756c6113c932e978e29a7bccd52d84669250e0e0..237a4bdc0e17dc46a6ad908bfde1b4dd73d2adc4 100644
(file)
--- a/
GlobalNameTable.hs
+++ b/
GlobalNameTable.hs
@@
-18,9
+18,15
@@
mkGlobalNameTable = Map.fromList
globalNameTable :: NameTable
globalNameTable = mkGlobalNameTable
[ ("!" , (2, genExprFCall exId ) )
globalNameTable :: NameTable
globalNameTable = mkGlobalNameTable
[ ("!" , (2, genExprFCall exId ) )
+ , ("replace" , (3, genExprFCall replaceId ) )
, ("head" , (1, genExprFCall headId ) )
, ("head" , (1, genExprFCall headId ) )
+ , ("last" , (1, genExprFCall lastId ) )
+ , ("tail" , (1, genExprFCall tailId ) )
+ , ("init" , (1, genExprFCall initId ) )
+ , ("take" , (2, genExprFCall takeId ) )
+ , ("drop" , (2, genExprFCall dropId ) )
, ("hwxor" , (2, genExprOp2 AST.Xor ) )
, ("hwand" , (2, genExprOp2 AST.And ) )
, ("hwxor" , (2, genExprOp2 AST.Xor ) )
, ("hwand" , (2, genExprOp2 AST.And ) )
- , ("hwor" , (2, genExprOp2 AST.
And
) )
+ , ("hwor" , (2, genExprOp2 AST.
Or
) )
, ("hwnot" , (1, genExprOp1 AST.Not ) )
]
, ("hwnot" , (1, genExprOp1 AST.Not ) )
]