GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

more french

Browse Source
This commit is contained in:
aarne
2006-01-20 16:56:38 +00:00
parent e40cceeb4c
commit 64409337c5
15 changed files with 193 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Canon/CMacros.hs
View File

@@ -151,7 +151,7 @@ matchPatt cs0 (FV ts) = liftM FV $ mapM (matchPatt cs0) ts
matchPatt cs0 trm = term2patt trm >>= match cs0 where
match cs t =
case cs of
Cas ps b :_ | elem t ps -> return b
Cas ps b :_ | elem t ps -> return b
_:cs' -> match cs' t
[] -> Bad $ "pattern not found for" +++ prt t
+++ "among" ++++ unlines (map prt cs0) ---- debug