revert to using simple strings in SC

2019-09-03 20:52:34 +02:00
parent b73c9ede2a
commit 8e70523718
6 changed files with 10 additions and 11 deletions
@@ -36,7 +36,7 @@ concrete AdjectiveEng of Adjective = CatEng ** open ResEng, Prelude in {
      } ;

    SentAP ap sc = {
-      s = \\a => ap.s ! a ++ sc.s ! a ; 
+      s = \\a => ap.s ! a ++ sc.s ; 
      isPre = False
      } ;