From c218bc693aa3703fee666c3ca1c068201c07d2a9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 6 Jun 2019 22:44:00 -0400
Subject: WIP: Class definition.

---
 new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

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 4239a89aa..ce5d797b4 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
@@ -886,7 +886,8 @@
 (def: overriden-method-definition
   (Parser [Environment (/.Overriden-Method Synthesis)])
   (<s>.tuple (do <>.monad
-               [ownerT ..class
+               [_ (<s>.text! /.overriden-tag)
+                ownerT ..class
                 name <s>.text
                 strict-fp? <s>.bit
                 annotations (<s>.tuple (<>.some ..annotation))
-- 
cgit v1.2.3