an optimization which would be relevant with the new compiler

This commit is contained in:
Krasimir Angelov
2022-01-11 15:16:26 +01:00
committed by Meowyam
parent 0ee84ddb7d
commit c8862b8ed8

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 ++