Add support for CAPIT and ALL_CAPIT

2026-05-03 16:22:52 -06:00 · 2021-02-16 15:17:54 +01:00
parent 21f14c2aa1
commit d394cacddf
6 changed files with 15 additions and 2 deletions
--- a/src/compiler/GF/Compile/GrammarToLPGF.hs
+++ b/src/compiler/GF/Compile/GrammarToLPGF.hs
@@ -95,8 +95,8 @@ mkCanon2lpgf opts gr am = do
                "BIND" -> return L.LFBind
                "SOFT_BIND" -> return L.LFBind
                "SOFT_SPACE" -> return L.LFSpace
-                -- "CAPIT" ->
-                -- "ALL_CAPIT" ->
+                "CAPIT" -> return L.LFCapit
+                "ALL_CAPIT" -> return L.LFAllCapit
                _ -> Left $ printf "Unknown predef function: %s" pid

              C.RecordValue rrvs -> do