mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 09:32:53 -06:00
refinements
This commit is contained in:
@@ -68,11 +68,14 @@ oper
|
||||
mkA = overload {
|
||||
mkA : Str-> A
|
||||
= \s -> regAdjective s ** {lock_A = <>} ;
|
||||
mkA : Str -> Str -> A2
|
||||
mkA : Str -> Str -> A2
|
||||
= \a,c -> let n = regAdjective a in {s = n.s; c2 = c} ** {lock_A2 = <>} ;
|
||||
mkA : A -> Str -> A2
|
||||
= \a,c -> a ** {c2 = c ; lock_A2 = <>};
|
||||
|
||||
} ;
|
||||
|
||||
mkIrregA : Str -> Str -> A2 = \str,c -> makeIrregA str ** {c2 = c ; lock_A2 = <>} ;
|
||||
mkIrregA : Str -> A = \str -> makeIrregA str ;
|
||||
|
||||
--2 Verbs
|
||||
|
||||
|
||||
Reference in New Issue
Block a user