X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=sem.icl;h=9eafed1db34b390b6da14949a536e86b10b7dfe5;hb=e33962666f8af6a34432d57180eb322f4543eb78;hp=5ebbc481d0b5101e1657dfb2626013d07e5d1eb4;hpb=14e9a339d121ce18c420e4cb99f6bad86d1a5b45;p=cc1516.git

diff --git a/sem.icl b/sem.icl
index 5ebbc48..9eafed1 100644
--- a/sem.icl
+++ b/sem.icl
@@ -52,6 +52,9 @@ defaultGamma :: Gamma //includes all default functions
 defaultGamma = extend "print" (Forall ["a"] ((IdType "a") ->> VoidType))
                 $ extend "isEmpty" (Forall ["a"] ((ListType (IdType "a")) ->> BoolType))
                 $ extend "read" (Forall [] (FuncType CharType))
+                $ extend "1printchar" (Forall [] (CharType ->> VoidType))
+                $ extend "1printint" (Forall [] (IntType ->> VoidType))
+                $ extend "1printbool" (Forall [] (BoolType ->> VoidType))
                 zero
 
 sem :: AST -> Either [SemError] AST