fine-tuning Romance for efficiency

This commit is contained in:
aarne
2006-02-27 19:46:48 +00:00
parent 6eb14fa20f
commit b7703b8460
10 changed files with 54 additions and 23 deletions

View File

@@ -35,7 +35,7 @@ incomplete concrete VerbRomance of Verb =
CompAdv a = {s = \\_ => a.s} ;
AdvVP vp adv = insertAdv adv.s vp ;
AdVVP adv vp = insertAdv adv.s vp ;
AdVVP adv vp = insertAdV adv.s vp ;
ReflV2 v = case v.c2.isDir of {
True => predV {s = v.s ; vtyp = vRefl} ;