@@ -26,10 +26,10 @@ data Environment = Env
2626
2727builtIns :: Environment
2828builtIns =
29− Env { _values = builtIn ([saveEnvName,"::","[]"] ++ tuples)
30− , _adts = builtIn ["_List","Int","Float","Char","Bool","String"]
29+ Env { _values = builtIn (tuples ++ [saveEnvName,"::","[]"])
30+ , _adts = builtIn (tuples ++ ["_List","Int","Float","Char","Bool","String"])
3131 , _aliases = dict []
32− , _patterns = builtIn (["::","[]"] ++ tuples)
32+ , _patterns = builtIn (tuples ++ ["::","[]"])
3333 }
3434 where
3535 builtIn xs = dict $ map (\x -> (x, Var.Canonical Var.BuiltIn x)) xs