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

slight improvement of Fre compile mem and time

Browse Source
This commit is contained in:
aarne
2006-03-30 18:35:26 +00:00
parent 97bb101c44
commit 2dd2b1e11e
2 changed files with 10 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/resource-1.0/french/DiffFre.gf
View File

@@ -76,14 +76,13 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
CPron a => argPron a.g a.n a.p Acc ;
_ => []
} ;
pdat = case dat of {
CPron a => argPron a.g a.n a.p dative ;
_ => []
} ;
in
case dat of {
CPron {p = P3} => <pacc ++ pdat,[]> ;
_ => <pdat ++ pacc, []>
CPron a => let pdat = argPron a.g a.n a.p dative in case a.p of {
P3 => <pacc ++ pdat,[]> ;
_ => <pdat ++ pacc,[]>
} ;
_ => <pacc, []>
} ;