GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-02 15:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

record extension typs checking fixed

Browse Source
This commit is contained in:
aarne
2005-04-25 17:19:32 +00:00
parent 6c9c095c9a
commit e601bc4e43
9 changed files with 31 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/resource/scandinavian/SyntaxScand.gf
View File

@@ -637,7 +637,7 @@ oper
mkVerbGroupCopula : (Gender => Number => Person => Str) -> VerbGroup =
\obj ->
mkVerbGroupObject (verbVara ** {s1 = []}) obj ;
mkVerbGroupObject verbVara obj ;
-----------------------
@@ -688,7 +688,7 @@ oper
-- on semantic grounds.
vara : (Gender => Number => Person => Str) -> VerbGroup =
useVerb (verbVara ** {s1 = []}) ;
useVerb verbVara ;
predAdjective : Adjective -> VerbGroup = \arg ->
vara (\\g,n,_ => arg.s ! predFormAdj g n ! Nom) ;
@@ -1016,7 +1016,7 @@ oper
insertObject (mkSats subj verb) obj ;
mkSatsCopula : NounPhrase -> Str -> Sats = \subj,obj ->
mkSatsObject subj (verbVara ** {s1 = []}) obj ;
mkSatsObject subj verbVara obj ;
--3 Sentence-complement verbs