From 6916a864871247a2f6aa60d5c69814cd2ba8ae4b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 17 May 2019 20:03:39 -0400
Subject: Forgot to actually compile the methods. Now doing so.

---
 .../luxc/lang/translation/jvm/procedure/host.lux    | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

(limited to 'new-luxc/source/luxc/lang/translation/jvm')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
index cf68663a5..ae54dccc7 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
@@ -1055,12 +1055,31 @@
                                                  self-name arguments returnT exceptionsT
                                                  (normalize-method-body local-mapping body)]))
                                             overriden-methods)]
+         method-definitions (|> normalized-methods
+                                (monad.map @ (function (_ [ownerT name
+                                                           strict-fp? annotations vars
+                                                           self-name arguments returnT exceptionsT
+                                                           bodyS])
+                                               (do @
+                                                 [bodyG (generate bodyS)]
+                                                 (wrap (_def.method #$.Public
+                                                                    (if strict-fp?
+                                                                      ($_ $.++M $.finalM $.strictM)
+                                                                      $.finalM)
+                                                                    name
+                                                                    (jvm.method (list@map product.right arguments)
+                                                                                returnT
+                                                                                (list@map (|>> #jvm.Class)
+                                                                                          exceptionsT))
+                                                                    bodyG)))))
+                                (:: @ map _def.fuse))
          _ (generation.save! true ["" class-name]
                              [class-name
                               (_def.class #$.V1_6 #$.Public $.finalC
                                           class-name (list)
                                           super-class super-interfaces
-                                          (|>> (///function.with-environment total-environment)))])]
+                                          (|>> (///function.with-environment total-environment)
+                                               method-definitions))])]
         (anonymous-instance class-name total-environment)))]))
 
 (def: bundle::class
-- 
cgit v1.2.3