X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=sem.dcl;h=a5705977b29780197eb20ccbb152a641a1422df9;hb=c5fb28639ae923d9b55f5832e45186911e610991;hp=2b13436634edc08c5e11765533dd8d4d7b12a448;hpb=51921a9587d60b6411610845f56d62ebd73f80cb;p=cc1516.git

diff --git a/sem.dcl b/sem.dcl
index 2b13436..a570597 100644
--- a/sem.dcl
+++ b/sem.dcl
@@ -13,4 +13,4 @@ from StdOverloaded import class toString
 instance toString SemError
 instance toString Gamma
 
-sem :: AST -> Either [SemError] AST
+sem :: AST -> Either [SemError] (AST, Gamma)