Commit f4a9632f authored by sof's avatar sof
Browse files

[project @ 1999-05-13 10:52:55 by sof]

wibble
parent 9bb7a81f
......@@ -269,8 +269,8 @@ lexLitChar ('\\':s) = do
mzero
else
case base of
8 -> return ('o':num', res)
16 -> return ('x':num', res)
8 -> return ('o':num, res)
16 -> return ('x':num, res)
_ -> return (num, res)
toAnInt base xs = foldl (\ acc n -> acc*base + n) 0 (map digitToInt xs)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment