paths in Symbol modules; present in ResRon (not complete)

This commit is contained in:
aarne
2009-10-05 12:54:17 +00:00
parent da177ed66a
commit 6a744bfb5f
19 changed files with 24 additions and 21 deletions

View File

@@ -508,9 +508,9 @@ oper
RCond => VCondit ;
RPres => VPres m
} ;
cmp = case <t,a,m> of
{<RPast,Simul,Indic> | <RPres, Anter,Indic> => True ;
<RCond, _, _> => True;
cmp = case <<t,a,m> : RTense * Anteriority * Mood> of {
<RPast,Simul,Indic> | <RPres, Anter,Indic> => True ; --# notpresent
<RCond, _, _> => True; --# notpresent
_ => False
} ;
vp = useVP vpr ;

View File

@@ -1,3 +1,5 @@
--# -path=.:../abstract:../common
concrete SymbolRon of Symbol =
CatRon ** open Prelude, ResRon in {