msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

an optimization which would be relevant with the new compiler

Browse Source
This commit is contained in:
Krasimir Angelov
2022-01-11 15:16:26 +01:00
committed by Meowyam
parent 0ee84ddb7d
commit c8862b8ed8
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/scandinavian/NounScand.gf
View File

@@ -13,9 +13,9 @@ incomplete concrete NounScand of Noun =
let
g = cn.g ;
m = cn.isMod ;
dd = case <det.det,detDef,m> of {
<DDef Def, Indef, True> => DDef Indef ;
<d,_,_> => d
dd = case <detDef,det.det,m> of {
<Indef, DDef Def, True> => DDef Indef ;
<_,d,_> => d
}
in {
s = \\c => det.s ! m ! g ++