diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-05-16 21:10:47 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-05-16 21:10:47 +0000 |
| commit | 63f03f8c731f3392e72f92d65b2c200fd342551d (patch) | |
| tree | 612c63b9d96971e5e29a80351f9385482ff4712c /examples/dialogue/ResProlog.gf | |
| parent | 29d04d8a90e1db9c8cc040ae5d83bdf7c84359cc (diff) | |
field names added to Prolog
Diffstat (limited to 'examples/dialogue/ResProlog.gf')
| -rw-r--r-- | examples/dialogue/ResProlog.gf | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/examples/dialogue/ResProlog.gf b/examples/dialogue/ResProlog.gf index 5ecb1f3c0..8b6dadef6 100644 --- a/examples/dialogue/ResProlog.gf +++ b/examples/dialogue/ResProlog.gf @@ -7,6 +7,9 @@ resource ResProlog = open Prelude in { apps : Str -> SS -> SS = \f,x -> ss (app1 f x.s) ; + op1 : (s,x : Str) -> {s,x : Str} = \s,x -> {s = s ; x = x} ; + op2 : (s,x,y : Str) -> {s,x,y : Str} = \s,x,y -> {s = s ; x = x ; y = y} ; + request : Str -> Str = app1 "request" ; answer : Str -> Str = app1 "answer" ; |