diff options
| author | Hans Leiss <leiss@cis.uni-muenchen.de> | 2025-02-18 12:41:14 +0100 |
|---|---|---|
| committer | Hans Leiss <leiss@cis.uni-muenchen.de> | 2025-02-18 12:41:14 +0100 |
| commit | 643617ccc4faafa659aa16fae2870ac68a8f394b (patch) | |
| tree | ea6ad674a630b7c2ea07e0d85fc189835254927b /src | |
| parent | 41f45e572b31abf197b5896645aa856abfb406de (diff) | |
Bug fix for gf-shell command 'pt -compute' in Expr.hs by
tryMatch p (VConst _ _) env = match sig f eqs as0
Diffstat (limited to 'src')
| -rw-r--r-- | src/runtime/haskell/PGF/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Expr.hs b/src/runtime/haskell/PGF/Expr.hs index ff1114235..42c0df14e 100644 --- a/src/runtime/haskell/PGF/Expr.hs +++ b/src/runtime/haskell/PGF/Expr.hs @@ -408,7 +408,7 @@ match sig f eqs as0 = tryMatch (p ) (VMeta i envi vs ) env = VSusp i envi vs (\v -> tryMatch p v env)
tryMatch (p ) (VGen i vs ) env = VConst f as0
tryMatch (p ) (VSusp i envi vs k) env = VSusp i envi vs (\v -> tryMatch p (k v) env)
- tryMatch (p ) v@(VConst _ _ ) env = VConst f as0
+ tryMatch (p ) v@(VConst _ _ ) env = match sig f eqs as0
tryMatch (PApp f1 ps1) (VApp f2 vs2 ) env | f1 == f2 = tryMatches eqs (ps1++ps) (vs2++as) res env
tryMatch (PLit l1 ) (VLit l2 ) env | l1 == l2 = tryMatches eqs ps as res env
tryMatch (PImplArg p ) (VImplArg v ) env = tryMatch p v env
|