Permalink
Browse files

RFCT Use skiptokenM when ignoring value

  • Loading branch information...
1 parent 045ea4c commit bc374b86b543b15fa20029c1e455869c15176079 @luispedro committed Oct 10, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 hex/Macros.lhs
View
@@ -1225,8 +1225,8 @@ readNumberM :: TkSS Integer
readNumberM = local (++" -> readNumberM") $ do
tk <- peektokenM
case tk of
- CharToken (TypedChar '"' _) -> gettokenM >> readNumber ("0x"++) hexdigits
- CharToken (TypedChar '\'' _) -> gettokenM >> readNumber ("0o"++) octdigits
+ CharToken (TypedChar '"' _) -> skiptokenM >> readNumber ("0x"++) hexdigits
+ CharToken (TypedChar '\'' _) -> skiptokenM >> readNumber ("0o"++) octdigits
CharToken (TypedChar '`' _) -> skiptokenM >> gettokenM >>= (\t -> case t of
CharToken (TypedChar c _) -> return $! toInteger . ord $ c
ControlSequence ['\\',c] -> return $! toInteger . ord $ c

0 comments on commit bc374b8

Please sign in to comment.