From 35c0807799717cd720ab28b35851c1a01a67445d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 7 Sep 2021 22:50:21 -0400
Subject: De-taggification | part 4

---
 lux-scheme/source/program.lux | 92 +++++++++++++++++++++----------------------
 1 file changed, 46 insertions(+), 46 deletions(-)

(limited to 'lux-scheme')

diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index f96d207b6..a4524eff8 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -1,35 +1,35 @@
 (.module:
   [lux "*"
    [program {"+" [program:]}]
-   ["." ffi]
-   ["." debug]
+   ["[0]" ffi]
+   ["[0]" debug]
    [abstract
-    ["." monad {"+" [do]}]]
+    ["[0]" monad {"+" [do]}]]
    [control
     [pipe {"+" [exec> case> new>]}]
-    ["." maybe]
-    ["." try {"+" [Try]}]
-    ["." exception {"+" [exception:]}]
-    ["." io {"+" [IO io]}]
+    ["[0]" maybe]
+    ["[0]" try {"+" [Try]}]
+    ["[0]" exception {"+" [exception:]}]
+    ["[0]" io {"+" [IO io]}]
     [concurrency
-     ["." promise {"+" [Promise]}]]]
+     ["[0]" promise {"+" [Promise]}]]]
    [data
-    ["." text ("#\." hash)
+    ["[0]" text ("[1]\[0]" hash)
      ["%" format {"+" [format]}]
-     ["." encoding]]
+     ["[0]" encoding]]
     [collection
-     ["." array {"+" [Array]}]]]
+     ["[0]" array {"+" [Array]}]]]
    [macro
-    ["." template]]
+    ["[0]" template]]
    [math
     [number {"+" [hex]}
      ["n" nat]
-     ["." i64]]]
+     ["[0]" i64]]]
    [time
-    ["." instant]]
-   ["." world "_"
-    ["." file]
-    ["#/." program]]
+    ["[0]" instant]]
+   ["[0]" world "_"
+    ["[0]" file]
+    ["[1]/[0]" program]]
    ["@" target
     ["_" scheme]]
    [tool
@@ -41,29 +41,29 @@
       [lux
        [program {"+" [Program]}]
        [generation {"+" [Context Host]}]
-       ["." synthesis]
+       ["[0]" synthesis]
        [analysis
         [macro {"+" [Expander]}]]
        [phase
-        ["." extension {"+" [Extender Handler]}
-         ["#/." bundle]
-         ["." analysis "_"
-          ["#" scheme]]
-         ["." generation "_"
-          ["#" scheme]]]
+        ["[0]" extension {"+" [Extender Handler]}
+         ["[1]/[0]" bundle]
+         ["[0]" analysis "_"
+          ["[1]" scheme]]
+         ["[0]" generation "_"
+          ["[1]" scheme]]]
         [generation
-         ["." reference]
-         ["." scheme
-          ["." runtime]]]]]]
+         ["[0]" reference]
+         ["[0]" scheme
+          ["[0]" runtime]]]]]]
      [default
-      ["." platform {"+" [Platform]}]]
+      ["[0]" platform {"+" [Platform]}]]
      [meta
-      ["." packager "_"
-       ["#" scheme]]]]]]
+      ["[0]" packager "_"
+       ["[1]" scheme]]]]]]
   [program
    ["/" compositor
-    ["#." cli]
-    ["#." static]]])
+    ["[1][0]" cli]
+    ["[1][0]" static]]])
 
 (ffi.import: java/lang/Boolean)
 (ffi.import: java/lang/String)
@@ -71,64 +71,64 @@
 (ffi.import: (java/lang/Class a))
 
 (ffi.import: java/lang/Object
-  ["#::."
+  ["[1]::[0]"
    (toString [] java/lang/String)
    (getClass [] (java/lang/Class java/lang/Object))])
 
 (ffi.import: java/lang/Long
-  ["#::."
+  ["[1]::[0]"
    (intValue [] java/lang/Integer)])
 
 (ffi.import: java/lang/Integer
-  ["#::."
+  ["[1]::[0]"
    (longValue [] java/lang/Long)])
 
 (ffi.import: gnu/math/IntNum
-  ["#::."
+  ["[1]::[0]"
    (new "manual" [int])
    (longValue [] long)])
 
 (ffi.import: gnu/math/DFloNum
-  ["#::."
+  ["[1]::[0]"
    (doubleValue [] double)])
 
 (ffi.import: gnu/lists/FString
-  ["#::."
+  ["[1]::[0]"
    (toString [] String)])
 
 (ffi.import: gnu/lists/IString
-  ["#::."
+  ["[1]::[0]"
    (toString [] String)])
 
 (ffi.import: gnu/lists/Pair
-  ["#::."
+  ["[1]::[0]"
    (getCar [] java/lang/Object)
    (getCdr [] java/lang/Object)])
 
 (ffi.import: gnu/lists/EmptyList
-  ["#::."
+  ["[1]::[0]"
    ("static" emptyList gnu/lists/EmptyList)])
 
 (ffi.import: (gnu/lists/FVector E)
-  ["#::."
+  ["[1]::[0]"
    (getBufferLength [] int)
    (getRaw [int] E)])
 
 (ffi.import: gnu/lists/U8Vector)
 
 (ffi.import: gnu/mapping/Procedure
-  ["#::."
+  ["[1]::[0]"
    (apply2 [java/lang/Object java/lang/Object] "try" java/lang/Object)
    (applyN [[java/lang/Object]] "try" java/lang/Object)])
 
 (ffi.import: gnu/mapping/Environment)
 
 (ffi.import: gnu/expr/Language
-  ["#::."
+  ["[1]::[0]"
    (eval [java/lang/String] "try" java/lang/Object)])
 
 (ffi.import: kawa/standard/Scheme
-  ["#::."
+  ["[1]::[0]"
    ("static" getR7rsInstance [] kawa/standard/Scheme)])
 
 (def: (variant? value)
@@ -158,7 +158,7 @@
      (getValue [] java/lang/Object))
 
    (`` (ffi.import: (~~ (template.identifier ["program/" <name>]))
-         ["#::."
+         ["[1]::[0]"
           (getValue [] java/lang/Object)]))]
 
   [VariantValue]
-- 
cgit v1.2.3