From fc8bebd3b3c5f050ea92e72eecbd9f6df09f28db Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sat, 4 Sep 2021 12:49:52 -0400 Subject: De-taggification | part 2 --- lux-jvm/source/luxc/lang/host/jvm/def.lux | 12 ++++++------ lux-jvm/source/luxc/lang/host/jvm/inst.lux | 18 +++++++++--------- 2 files changed, 15 insertions(+), 15 deletions(-) (limited to 'lux-jvm/source/luxc/lang/host/jvm') diff --git a/lux-jvm/source/luxc/lang/host/jvm/def.lux b/lux-jvm/source/luxc/lang/host/jvm/def.lux index 6b31137ac..3260e954c 100644 --- a/lux-jvm/source/luxc/lang/host/jvm/def.lux +++ b/lux-jvm/source/luxc/lang/host/jvm/def.lux @@ -1,15 +1,15 @@ (.module: [library - [lux (#- Type) - ["." ffi (#+ import: do_to)] + [lux {"-" [Type]} + ["." ffi {"+" [import: do_to]}] [control ["." function]] [data ["." product] ["." text - ["%" format (#+ format)]] + ["%" format {"+" [format]}]] [collection - ["." array (#+ Array)] + ["." array {"+" [Array]}] ["." list ("#@." functor)]]] [math [number @@ -18,8 +18,8 @@ [jvm [encoding ["." name]] - ["." type (#+ Type Constraint) - [category (#+ Class Value Method)] + ["." type {"+" [Type Constraint]} + [category {"+" [Class Value Method]}] ["." signature] ["." descriptor]]]]]] ["." //]) diff --git a/lux-jvm/source/luxc/lang/host/jvm/inst.lux b/lux-jvm/source/luxc/lang/host/jvm/inst.lux index ba381d5d2..9a622da03 100644 --- a/lux-jvm/source/luxc/lang/host/jvm/inst.lux +++ b/lux-jvm/source/luxc/lang/host/jvm/inst.lux @@ -1,9 +1,9 @@ (.module: [library - [lux (#- Type int char try) - ["." ffi (#+ import: do_to)] + [lux {"-" [Type int char try]} + ["." ffi {"+" [import: do_to]}] [abstract - [monad (#+ do)]] + [monad {"+" [do]}]] [control ["." function] ["." maybe] @@ -15,7 +15,7 @@ [collection ["." list ("#@." functor)]]] [macro - [syntax (#+ syntax:)] + [syntax {"+" [syntax:]}] ["." code] ["." template]] [math @@ -25,16 +25,16 @@ [target [jvm [encoding - ["." name (#+ External)]] - ["." type (#+ Type) ("#@." equivalence) - [category (#+ Void Value Return Method Primitive Object Class Array Var Parameter)] + ["." name {"+" [External]}]] + ["." type {"+" [Type]} ("#@." equivalence) + [category {"+" [Void Value Return Method Primitive Object Class Array Var Parameter]}] ["." box] ["." descriptor] ["." reflection]]]] [tool [compiler - [phase (#+ Operation)]]]]] - ["." // (#+ Inst)]) + [phase {"+" [Operation]}]]]]] + ["." // {"+" [Inst]}]) (def: class_name (|>> type.descriptor descriptor.class_name name.read)) (def: descriptor (|>> type.descriptor descriptor.descriptor)) -- cgit v1.2.3