diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-09 15:54:03 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-09 15:54:03 +0000 |
| commit | 49dcc123b54f7a0bff065da09c014a6ae12c9348 (patch) | |
| tree | c59f38f2f137656e45f7c2f57171b421af229ae1 /examples/tutorial | |
| parent | aa5cff205de270ef98d8848816cdf66ba8a4deee (diff) | |
added some functions to overloaded API
Diffstat (limited to 'examples/tutorial')
| -rw-r--r-- | examples/tutorial/resource-foods/ExtFoodsI.gf | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/tutorial/resource-foods/ExtFoodsI.gf b/examples/tutorial/resource-foods/ExtFoodsI.gf index def336e28..586f3e42b 100644 --- a/examples/tutorial/resource-foods/ExtFoodsI.gf +++ b/examples/tutorial/resource-foods/ExtFoodsI.gf @@ -19,7 +19,7 @@ incomplete concrete ExtFoodsI of ExtFoods = FoodsI ** open Syntax, LexFoods in { mkText (mkQS (mkQCl (mkIP whichSg_IDet kind) guest verb)) ; WhichVerbWant kind guest verb = mkText (mkQS (mkQCl (mkIP whichSg_IDet kind) - (mkSlash guest want_VV verb))) ; + (mkClSlash guest want_VV verb))) ; WhichIs kind quality = mkText (mkQS (mkQCl (mkIP whichSg_IDet kind) (mkVP quality))) ; |