Add support for literals

2021-03-22 09:12:34 +01:00
parent 2d066853f1
commit f7df62a445
6 changed files with 28 additions and 5 deletions
--- a/testsuite/lpgf/unittests/LiteralsCnc.gf
+++ b/testsuite/lpgf/unittests/LiteralsCnc.gf
@@ -1,7 +1,9 @@
 concrete LiteralsCnc of Literals = open Prelude in {
  lincat S = SS ;
  lin
-    mkString s = s ;
+    mkString s = ss ("«" ++ s.s ++ "»") ;
    mkInt s = s ;
    mkFloat s = s ;
+
+    and s1 s2 = ss (s1.s ++ "and" ++ s2.s) ;
 }