From 6b8678f818a5f7399a50f4e2108d96783d22fd67 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 19 Mar 2020 21:18:58 -0400
Subject: Got the new compiler to build again.

---
 new-luxc/source/luxc/lang/translation/jvm/runtime.lux | 8 ++++++++
 1 file changed, 8 insertions(+)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
index 72763d01f..eb3ed9b7f 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
@@ -3,6 +3,8 @@
    [abstract
     [monad (#+ do)]]
    [data
+    [text
+     ["%" format (#+ format)]]
     [collection
      ["." list ("#@." functor)]]]
    ["." math]
@@ -27,6 +29,12 @@
       ["_" inst]]]]]
   ["." // (#+ ByteCode)])
 
+(def: prefix "lux/")
+
+(def: #export (class-name [module id])
+  (-> generation.Context Text)
+  (format ..prefix module "/" (%.nat id)))
+
 (def: $Text (type.class "java.lang.String" (list)))
 (def: #export $Tag type.int)
 (def: #export $Flag (type.class "java.lang.Object" (list)))
-- 
cgit v1.2.3