diff options
author | Eduardo Julian | 2018-08-11 19:46:17 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-08-11 19:46:17 -0400 |
commit | 425148d29846ba507599b220d4df05c805e8d38a (patch) | |
tree | 8181e4e295cce83c8ff193228acc83f18594cc1a /new-luxc/source/luxc/lang/host/jvm.lux | |
parent | 725bcd5670a5d83c201fac147aedce01d9283d03 (diff) |
Fixed various JVM translation tests.
Diffstat (limited to 'new-luxc/source/luxc/lang/host/jvm.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/host/jvm.lux | 21 |
1 files changed, 10 insertions, 11 deletions
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} |