diff options
author | Eduardo Julian | 2020-08-12 01:01:30 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-08-12 01:01:30 -0400 |
commit | ddcc768d9d2e798814989037a286df9951840bcd (patch) | |
tree | 1db8ae1685671765dc71358853b412b279007f1d /stdlib/source/test/lux/target/jvm.lux | |
parent | 56fa0ab84c1112ea297c46814e580ca8d11b101e (diff) |
WIP: New build-tool named Aedifex (can read project descriptions).
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/target/jvm.lux | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/stdlib/source/test/lux/target/jvm.lux b/stdlib/source/test/lux/target/jvm.lux index 18366de69..437621fb4 100644 --- a/stdlib/source/test/lux/target/jvm.lux +++ b/stdlib/source/test/lux/target/jvm.lux @@ -693,19 +693,17 @@ _ instruction _ /.i2l] ..$Long::wrap))))) + ## https://docs.oracle.com/javase/specs/jvms/se7/html/jvms-6.html#jvms-6.5.dcmp_op + comparison-standard (: (-> java/lang/Double java/lang/Double Bit) + (function (_ reference subject) + (for {@.old + ("jvm dgt" subject reference) + + @.jvm + ("jvm double <" ("jvm object cast" subject) ("jvm object cast" reference))}))) comparison ($_ _.and - (_.lift "DCMPL" (comparison /.dcmpl (function (_ reference subject) - (for {@.old - ("jvm dlt" subject reference) - - @.jvm - ("jvm double <" ("jvm object cast" reference) ("jvm object cast" subject))})))) - (_.lift "DCMPG" (comparison /.dcmpg (function (_ reference subject) - (for {@.old - ("jvm dgt" subject reference) - - @.jvm - ("jvm double <" ("jvm object cast" subject) ("jvm object cast" reference))})))))] + (_.lift "DCMPL" (comparison /.dcmpl comparison-standard)) + (_.lift "DCMPG" (comparison /.dcmpg comparison-standard)))] ($_ _.and (<| (_.context "literal") literal) |