From 3ff57f6184963acde7f3cc2dcf0638c0e819929a Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 15 Nov 2008 11:19:10 +0000 Subject: comparative adverbs generalized to cover more of Attempto --- next-lib/src/common/ConstructX.gf | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'next-lib/src/common/ConstructX.gf') diff --git a/next-lib/src/common/ConstructX.gf b/next-lib/src/common/ConstructX.gf index ee4decf00..0c6de51ae 100644 --- a/next-lib/src/common/ConstructX.gf +++ b/next-lib/src/common/ConstructX.gf @@ -13,7 +13,7 @@ resource ConstructX = open CommonX in { mkAdA : Str -> AdA = \s -> {s = s ; lock_AdA = <>} ; mkAdN : Str -> AdN = \s -> {s = s ; lock_AdN = <>} ; mkIAdv : Str -> IAdv = \s -> {s = s ; lock_IAdv = <>} ; - mkCAdv : Str -> CAdv = \s -> {s = s ; lock_CAdv = <>} ; + mkCAdv : Str -> Str -> CAdv = \s,p -> {s = s ; p = p ; lock_CAdv = <>} ; mkPConj : Str -> PConj = \s -> {s = s ; lock_PConj = <>} ; } -- cgit v1.2.3