From a4ac066326f532ba95447ed8b29678cf064affea Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Fri, 20 Feb 2026 13:54:32 +0100
Subject: [PATCH] VConst -> VApp

---
 src/compiler/api/GF/Compile/Compute.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/compiler/api/GF/Compile/Compute.hs b/src/compiler/api/GF/Compile/Compute.hs
index 6d689ea72..9689b24a4 100644
--- a/src/compiler/api/GF/Compile/Compute.hs
+++ b/src/compiler/api/GF/Compile/Compute.hs
@@ -2,7 +2,7 @@
 
 module GF.Compile.Compute
            (Env, Scope, Value(..), Variants(..), OptionInfo(..),
-            ConstValue(..), Globals(..), PredefTable, EvalM,
+            ConstValue(..), Globals(..), PredefTable, EvalM(..),
             mapVariantsC, unvariants,
             runEvalM, runEvalMWithInput, stdPredef, noPredef, globals,
             PredefImpl, Predef, pdArity,
@@ -361,7 +361,7 @@ evalAbsDef g@(Gl gr pds _) c q args =
       case splitAt' arity args of
         Nothing -> VPAP c q args
         Just (_,_) -> patternMatch g c (VConst q args) (map (\(ps,t) -> ([],ps,args,t)) eqs)
-    Ok Nothing -> VConst q args
+    Ok Nothing -> VApp q args
     Bad msg -> error msg
 
 apply g (VMeta i vs0)                   vs  = VMeta i   (vs0++vs)