diff options
author | Eduardo Julian | 2020-07-02 22:39:02 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-07-02 22:39:02 -0400 |
commit | 4bd2f378011bf28449ed907d637a7867524e3b4b (patch) | |
tree | 88ff726472fb1299a80470b78bbbefe248bd6d82 /stdlib/source/spec/compositor/analysis/type.lux | |
parent | 7853d890ac72cd96851caedadd8525404705286c (diff) |
Now using the new syntax for variants (even though they still work the old way... for now)
Diffstat (limited to 'stdlib/source/spec/compositor/analysis/type.lux')
-rw-r--r-- | stdlib/source/spec/compositor/analysis/type.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/spec/compositor/analysis/type.lux b/stdlib/source/spec/compositor/analysis/type.lux index b2daee77a..718c1d01e 100644 --- a/stdlib/source/spec/compositor/analysis/type.lux +++ b/stdlib/source/spec/compositor/analysis/type.lux @@ -46,12 +46,12 @@ <type> (<code> value)]))] - [r.bit (0 "#Bit" (0)) code.bit] - [r.nat (0 "#I64" (1 (0 "#Nat" (0)) (0))) code.nat] - [r.int (0 "#I64" (1 (0 "#Int" (0)) (0))) code.int] - [r.rev (0 "#I64" (1 (0 "#Rev" (0)) (0))) code.rev] - [r.safe-frac (0 "#Frac" (0)) code.frac] - [(r.ascii/upper-alpha 5) (0 "#Text" (0)) code.text] + [r.bit (0 #0 "#Bit" (0 #0)) code.bit] + [r.nat (0 #0 "#I64" (0 #1 (0 #0 "#Nat" (0 #0)) (0 #0))) code.nat] + [r.int (0 #0 "#I64" (0 #1 (0 #0 "#Int" (0 #0)) (0 #0))) code.int] + [r.rev (0 #0 "#I64" (0 #1 (0 #0 "#Rev" (0 #0)) (0 #0))) code.rev] + [r.safe-frac (0 #0 "#Frac" (0 #0)) code.frac] + [(r.ascii/upper-alpha 5) (0 #0 "#Text" (0 #0)) code.text] ))))) (def: #export (spec expander state) |