bug fix in Predef.toStr compilation

2026-04-09 04:59:31 -06:00 · 2006-05-21 11:38:00 +00:00
parent db4e3fee20
commit 1112dbed7e
1 changed files with 1 additions and 0 deletions
--- a/src/GF/Grammar/AppPredefined.hs
+++ b/src/GF/Grammar/AppPredefined.hs
@@ -138,6 +138,7 @@ trm2str t = case t of
  V _ (s:_)       -> trm2str s
  C _ _         -> return $ t
  K _           -> return $ t
+  S c _         -> trm2str c
  Empty         -> return $ t
  _ -> prtBad "cannot get Str from term" t