Glue things

This commit is contained in:
aarne
2003-11-10 12:50:22 +00:00
parent 47c029be3d
commit c84ce99de2
3 changed files with 10 additions and 4 deletions

View File

@@ -456,10 +456,10 @@ getHarmony : Str -> Str = \u ->
} ;
-- The possessive suffixes will be needed in syntax. It will show up
-- as a separate word ("auto &ni"), which needs unlexing. Unlexing also
-- has to fix the vowel harmony in cases like "äiti &nsä".
-- as a separate word ("auto &+ ni"), which needs unlexing. Unlexing also
-- has to fix the vowel harmony in cases like "äiti &+ nsä".
suff : Str -> Str = \ni -> "&" + ni ;
suff : Str -> Str = \ni -> "&+" ++ ni ;
possSuffix : Number => Person => Str = \\n,p =>
suff (case <n,p> of {

View File

@@ -21,7 +21,8 @@ concrete ResFin of ResAbs = open Prelude, SyntaxFin in {
flags
startcat=Phr ;
parser=chart ;
lexer=unglue ;
unlexer=glue ;
lincat
N = CommNoun ;