From ddcc768d9d2e798814989037a286df9951840bcd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 12 Aug 2020 01:01:30 -0400
Subject: WIP: New build-tool named Aedifex (can read project descriptions).

---
 stdlib/source/test/lux/target/jvm.lux | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

(limited to 'stdlib/source/test/lux/target/jvm.lux')

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)
-- 
cgit v1.2.3