added API for print names

src/runtime/haskell/tests/basic.pmcfg

@@ -19,10 +19,10 @@ concrete basic_cnc {
   lincat S = [
            ""
          ]
-  lin c : ∀{j<2} . N(j) -> S(0) = [
+  lin c : ∀{i<2} . N(i) -> S(0) = [
         <0,0>
       ]
-  lin ind : ∀{j<2} . P(0) * P(0) * N(j) -> P(0) = [
+  lin ind : ∀{i<2} . P(0) * P(0) * N(i) -> P(0) = [
       ]
   lin s : N(0) -> N(0) = [
         <0,0> "+" "1"

src/runtime/haskell/tests/basic_cnc.gf

@@ -3,6 +3,9 @@ concrete basic_cnc of basic = open Prelude in {
 lincat N = {s : Str; is_zero : Bool} ;
 lincat S = Str ;
 
+printname fun z = "0" ;
+printname fun s = "1" ;
+
 lin z = {s="0"; is_zero=True} ;
     s n = {
       s = case n.is_zero of {