X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=sem.icl;h=0c5b55273cb8d7fb05f1fe73dc1fa069409ff49c;hb=c5e89ecf06145895bd8c8bca19e7e0587cfe1082;hp=0ffcdd282015af67631b0cd926d3042b01650379;hpb=0567e0e242028586a71edb38d3fcac5b35df707f;p=cc1516.git

diff --git a/sem.icl b/sem.icl
index 0ffcdd2..0c5b552 100644
--- a/sem.icl
+++ b/sem.icl
@@ -51,7 +51,7 @@ variableStream = map toString [1..]
 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 [] (IntType ->> (ListType CharType)))
+                $ extend "read" (Forall [] CharType)
                 zero
 
 sem :: AST -> Either [SemError] AST