allow metavariables with indices i.e. ?0, ?1, etc in the abstract syntax parser in PGF

2010-01-15 21:23:37 +00:00
parent a04cbcfb63
commit e0dda5b65a
1 changed files with 2 additions and 1 deletions
--- a/src/runtime/haskell/PGF/Expr.hs
+++ b/src/runtime/haskell/PGF/Expr.hs
@@ -191,7 +191,8 @@ pTyped = do RP.skipSpaces
            return (ETyped e ty)

 pMeta = do RP.char '?'
-           return 0
+           ds <- RP.munch isDigit
+           return (read ('0':ds))

 pLit :: RP.ReadP Literal
 pLit = liftM LStr (RP.readS_to_P reads)