showing labelless table values in cc

2008-05-26 16:08:31 +00:00
parent 913067543d
commit bcdbb26b88
1 changed files with 2 additions and 0 deletions
--- 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