diff options
| -rw-r--r-- | src-3.0/GF/Grammar/PrGrammar.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src-3.0/GF/Grammar/PrGrammar.hs b/src-3.0/GF/Grammar/PrGrammar.hs index 027abe9f3..f605a8de7 100644 --- a/src-3.0/GF/Grammar/PrGrammar.hs +++ b/src-3.0/GF/Grammar/PrGrammar.hs @@ -265,6 +265,8 @@ prTermTabular = pr where [(prt_ lab +++ "." +++ path, str) | (lab,(_,val)) <- rs, (path,str) <- pr val] T _ cs -> [(prt_ lab +++"=>" +++ path, str) | (lab, val) <- cs, (path,str) <- pr val] + V _ cs -> + [("#" ++ show i +++"=>" +++ path, str) | (i,val) <- zip [0..] cs, (path,str) <- pr val] _ -> [([],ps t)] ps t = case t of K s -> s |