Glue things

grammars/prelude/Prelude.gf

@@ -80,4 +80,9 @@ oper
     Predef.PFalse => False ; Predef.PTrue => True
     } ;
 
+-- bind together two tokens in the lexer, either obligatorily or optionally
+
+  oper 
+    bind : Str -> Str -> Str = \x,y -> x ++ "&+" ++ y ;
+    bindOpt : Str -> Str -> Str = \x,y -> variants {bind x y ; x ++ y} ;
 } ;

grammars/resource/finnish/MorphoFin.gf

@@ -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 {

grammars/resource/finnish/ResFin.gf

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