diff options
author | Eduardo Julian | 2019-07-06 22:32:40 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-07-06 22:32:40 -0400 |
commit | e3559192310c7db980eabe87b8a588f9bf653e44 (patch) | |
tree | b624a3b19701ac2e07f35b2be639d71d4b910fce /stdlib/source/lux/target/jvm/constant.lux | |
parent | 1d9118493710e5a28a21ed0bf98f3c8713c69853 (diff) |
Got long and double constants to work.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/target/jvm/constant.lux | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/stdlib/source/lux/target/jvm/constant.lux b/stdlib/source/lux/target/jvm/constant.lux index c157d4abb..0f4aca590 100644 --- a/stdlib/source/lux/target/jvm/constant.lux +++ b/stdlib/source/lux/target/jvm/constant.lux @@ -127,6 +127,15 @@ (#Interface-Method (Reference //descriptor.Method)) (#Name-And-Type (Name-And-Type Any))) +(def: #export (size constant) + (-> Constant Nat) + (case constant + (^or (#Long _) (#Double _)) + 2 + + _ + 1)) + (def: #export equivalence (Equivalence Constant) ## TODO: Delete the explicit "structure" and use the combinator |