diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-05-26 16:08:31 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-05-26 16:08:31 +0000 |
| commit | bcdbb26b8848e0be5e4078c5d7afb64febbaab0f (patch) | |
| tree | 71a5bde7e1fe4c6f237bab7eb7b826c46ebad8a1 /src-3.0 | |
| parent | 913067543d2c2440eaf528144f85c956c8db21fd (diff) | |
showing labelless table values in cc
Diffstat (limited to 'src-3.0')
| -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 |