sorting command list in Commands

This commit is contained in:
aarne
2008-06-08 19:27:20 +00:00
parent f1b939f7d1
commit 220e7eed63
3 changed files with 12 additions and 8 deletions

View File

@@ -27,7 +27,7 @@ concrete VerbEng of Verb = CatEng ** open ResEng in {
insertObj (\\a => infVP vv.isAux vp a) (predVV vv) **
{c2 = vp.c2} ;
SlashV2VNP vv np vp =
insertObjPre (\\_ => v.c2 ++ np.s ! Acc)
insertObjPre (\\_ => vv.c2 ++ np.s ! Acc)
(insertObjc (\\a => infVP vv.isAux vp a) (predVc vv)) **
{c2 = vp.c2} ;