@@ -47,9 +47,9 @@ shapes = [ numScheme (\n -> listOf (pairOf n) ==> pairOf n ==> shape) "polygon"
4747 , "filled" -: color ==> shape ==> form
4848 , "outlined" -: color ==> shape ==> form
4949 , "customOutline" -: listOf int ==> color ==> shape ==> form
50− ] ++ map (numScheme (\n -> n ==> n ==> pairOf n ==> shape) [ "ngon"
51− , "rect"
52− , "oval" ]
50+ ] ++ map (numScheme (\n -> n ==> n ==> pairOf n ==> shape)) [ "ngon"
51+ , "rect"
52+ , "oval" ]
5353
5454
5555-------- Foreign --------
@@ -137,7 +137,7 @@ math =
137137 [ numScheme (\t -> t ==> t) "abs" ] ++
138138 hasType (binop float) [ "/", "logBase" ] ++
139139 hasType (binop int) ["rem","div","mod"] ++
140− hasType (float ==> float) ["sin","cos","tan","asin","acos","atan","sqrt"] ++
140+ hasType (float ==> float) ["sin","cos","tan","asin","acos","atan","sqrt"]
141141
142142bools =
143143 [ "not" -: bool ==> bool ] ++