diff options
Diffstat (limited to 'examples/numerals/bearlake_slave.gf')
| -rw-r--r-- | examples/numerals/bearlake_slave.gf | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/numerals/bearlake_slave.gf b/examples/numerals/bearlake_slave.gf index 32329bcf8..ddfb14271 100644 --- a/examples/numerals/bearlake_slave.gf +++ b/examples/numerals/bearlake_slave.gf @@ -4,10 +4,12 @@ param DForm = unit | hundred ; oper LinDigit = {s : Str } ; +lincat Numeral = { s : Str } ; lincat Digit = LinDigit ; lincat Sub10 = LinDigit ; lincat Sub100 = {s : Str } ; lincat Sub1000 = {s : Str } ; +lincat Sub1000000 = { s : Str } ; oper mkNum : Str -> LinDigit = \two -> {s = two } ; |