closer to complete BasicFin

This commit is contained in:
aarne
2005-06-28 11:54:34 +00:00
parent 86b6394167
commit c4a8c71e07
2 changed files with 11 additions and 9 deletions

View File

@@ -462,5 +462,7 @@ reg3V soutaa soudan soudin =
mkV2 = \v,c,p,o -> v ** {s3 = p ; s4 = o ; c = CCase c ; lock_V2 = <>} ;
caseV2 = \v,c -> mkV2 v c [] [] ;
dirV2 v = mkTransVerbDir v ** {lock_V2 = <>} ;
mkAdv : Str -> Adv = \s -> {s = s ; lock_Adv = <>} ;
} ;