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

@@ -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} ;
} ;