From 425148d29846ba507599b220d4df05c805e8d38a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 11 Aug 2018 19:46:17 -0400
Subject: Fixed various JVM translation tests.

---
 new-luxc/source/luxc/lang/host/jvm.lux | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/host/jvm.lux b/new-luxc/source/luxc/lang/host/jvm.lux
index 6f56f9e0e..cb5bb46fb 100644
--- a/new-luxc/source/luxc/lang/host/jvm.lux
+++ b/new-luxc/source/luxc/lang/host/jvm.lux
@@ -96,17 +96,16 @@
 (type: #export Host
   (translation.Host Inst Definition))
 
-(type: #export State
-  (translation.State ..Anchor Inst Definition))
-
-(type: #export Operation
-  (translation.Operation ..Anchor Inst Definition))
-
-(type: #export Phase
-  (translation.Phase ..Anchor Inst Definition))
-
-(type: #export Bundle
-  (translation.Bundle ..Anchor Inst Definition))
+(do-template [<name> <base>]
+  [(type: #export <name>
+     (<base> ..Anchor Inst Definition))]
+
+  [State     translation.State]
+  [Operation translation.Operation]
+  [Phase     translation.Phase]
+  [Handler   translation.Handler]
+  [Bundle    translation.Bundle]
+  )
 
 ## [Values]
 (syntax: (config: {type s.local-identifier}
-- 
cgit v1.2.3