diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-05-17 21:04:54 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-05-17 21:04:54 +0000 |
| commit | 747eccf2df19fa85a09b72cd1786372367c21976 (patch) | |
| tree | 244af5e437267bc12bcba49e439952fc89924f2d /examples/dialogue/ResProlog.gf | |
| parent | cc0789034453f31bb86ad27030ec0549efa05e06 (diff) | |
some godis additions to dialogue
Diffstat (limited to 'examples/dialogue/ResProlog.gf')
| -rw-r--r-- | examples/dialogue/ResProlog.gf | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/dialogue/ResProlog.gf b/examples/dialogue/ResProlog.gf index 8b6dadef6..ce3bbce4b 100644 --- a/examples/dialogue/ResProlog.gf +++ b/examples/dialogue/ResProlog.gf @@ -4,6 +4,7 @@ resource ResProlog = open Prelude in { bracket : Str -> Str = \s -> "[" ++ s ++ "]" ; app1 : Str -> Str -> Str = \f,x -> f ++ paren x ; + app2 : Str -> Str -> Str -> Str = \f,x,y -> f ++ paren (x ++ "," ++ y) ; apps : Str -> SS -> SS = \f,x -> ss (app1 f x.s) ; |