mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-17 23:22:51 -06:00
added API for print names
This commit is contained in:
@@ -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 {
|
||||
|
||||
Reference in New Issue
Block a user