X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=GlobalNameTable.hs;h=aa7462890e94b15885a2fb3588b87894a96ff98b;hb=4d96e10ba2805470597642cf4c2ba797eda1b1f9;hp=429b9660d7e38434657635f1e97208e2452938c2;hpb=b4ae262efb842ce254721f0f9ed9f0936241e094;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/GlobalNameTable.hs b/GlobalNameTable.hs
index 429b966..aa74628 100644
--- a/GlobalNameTable.hs
+++ b/GlobalNameTable.hs
@@ -27,8 +27,10 @@ globalNameTable = mkGlobalNameTable
   , ("drop"           , (2, Left $ genExprFCall dropId                    ) )
   , ("+>"             , (2, Left $ genExprFCall plusgtId                  ) )
   , ("map"            , (2, Right $ genMapCall                            ) )
+  , ("zipWith"        , (3, Right $ genZipWithCall                        ) )
   , ("empty"          , (0, Left $ genExprFCall emptyId                   ) )
   , ("singleton"      , (1, Left $ genExprFCall singletonId               ) )
+  , ("copy"           , (2, Left $ genExprFCall copyId                    ) )
   , ("hwxor"          , (2, Left $ genExprOp2 AST.Xor                     ) )
   , ("hwand"          , (2, Left $ genExprOp2 AST.And                     ) )
   , ("hwor"           , (2, Left $ genExprOp2 AST.Or                      ) )