in the shell, permit 3-letter lang codes as concrete syntax names

2010-04-04 20:46:36 +00:00
parent 1040f2a10d
commit 0e2f34b269
3 changed files with 15 additions and 3 deletions
--- a/src/runtime/haskell/PGF/Parse.hs
+++ b/src/runtime/haskell/PGF/Parse.hs
@@ -65,7 +65,7 @@ initState pgf lang (DTyp _ start _) =
                                               return (Active 0 0 funid seqid args (AK cat lbl))
                Nothing                  -> mzero

-      cnc = lookConcr pgf lang
+      cnc = lookConcrComplete pgf lang

  in PState pgf
            cnc