added API for print names

This commit is contained in:
krangelov
2021-12-03 16:49:36 +01:00
parent 655576c291
commit bbff79aaa3
10 changed files with 86 additions and 8 deletions

View File

@@ -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 {