Fix lin2string and pass all unittests and Phrasebook

2021-03-08 09:53:10 +01:00
parent 0f4b349b0b
commit 785d6069e2
5 changed files with 81 additions and 31 deletions
--- a/testsuite/lpgf/unittests/BindCnc.gf
+++ b/testsuite/lpgf/unittests/BindCnc.gf
@@ -10,4 +10,12 @@ concrete BindCnc of Bind = open Prelude in {
    softspace a b = ss (a.s ++ SOFT_SPACE ++ b.s) ;
    capit a = ss (CAPIT ++ a.s) ;
    allcapit a = ss (ALL_CAPIT ++ a.s) ;
+    prebind a = ss (p ++ a.s) ;
+    precapit a = ss (p ++ CAPIT ++ a.s) ;
+  oper
+    p = pre {
+      "he" => "|" ++ BIND;
+      "H"|"G" => "^" ++ BIND;
+      _ => ">"
+    } ;
 }