From f025a75e661a1911f083fd0662a851566d07cd3e Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Wed, 9 Sep 2026 08:13:42 +0200 Subject: [PATCH] generate SymVar in PMCFG --- src/compiler/api/GF/Compile/GeneratePMCFG.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/compiler/api/GF/Compile/GeneratePMCFG.hs b/src/compiler/api/GF/Compile/GeneratePMCFG.hs index 3bc8cd5ce..4193611de 100644 --- a/src/compiler/api/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/api/GF/Compile/GeneratePMCFG.hs @@ -258,6 +258,7 @@ force (VSymCat d r rs) = do force_ (factor, (v, ty)) = do v <- force v return (factor, (v, ty)) +force (VSymVar d j) = return (VSymVar d j) force (VApp q vs) = do vs <- mapM force vs return (VApp q vs) @@ -306,6 +307,8 @@ flatten subst (VStr s) = return (subst,[SymKS s]) flatten subst (VSymCat d r rs) = do (subst,lin_index) <- params2int' subst r rs return (subst,[SymCat d lin_index]) +flatten subst (VSymVar d j) = do + return (subst,[SymVar d j]) flatten subst (VApp (m,id) []) | m == cPredef && id == cBIND = return (subst,[SymBIND]) | m == cPredef && id == cSOFT_BIND = return (subst,[SymSOFT_BIND])