@@ -9,7 +9,7 @@ chr x = prim__intToChar x
10-- | Convert the number to its ASCII equivalent.
10-- | Convert the number to its ASCII equivalent.
11ord : Char -> Int
11ord : Char -> Int
12−ord x = prim__charToInt
12+ord x = prim__charToInt x
14-- | Returns true if the character is in the range [A-Z].
14-- | Returns true if the character is in the range [A-Z].
15isUpper : Char -> Bool
15isUpper : Char -> Bool
@@ -64,6 +64,6 @@ isHexDigit x = elem (toUpper x) hexChars where
65-- | Returns true if the character is an octal digit.
65-- | Returns true if the character is an octal digit.
66isOctDigit : Char -> Bool
66isOctDigit : Char -> Bool
67−isOctDigit x = (x >= '0' && x <= '9')
67+isOctDigit x = (x >= '0' && x <= '7')
69-- --------------------------------------------------------------------- [ EOF ]
69-- --------------------------------------------------------------------- [ EOF ]