From 5d44577c3849a045052dc1c9f0dd7deddd032120 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 1 Jun 2022 21:52:34 -0400
Subject: Extensible import syntax: Part 1

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

(limited to 'lux-scheme')

diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index f131350d5..17ea4f01d 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -1,28 +1,28 @@
 (.using
  [lux "*"
-  [program {"+" program:}]
+  [program (.only program:)]
   ["[0]" ffi]
   ["[0]" debug]
   [abstract
-   ["[0]" monad {"+" do}]]
+   ["[0]" monad (.only do)]]
   [control
    ["[0]" pipe]
    ["[0]" maybe]
-   ["[0]" try {"+" Try}]
-   ["[0]" exception {"+" exception:}]
-   ["[0]" io {"+" IO io}]
+   ["[0]" try (.only Try)]
+   ["[0]" exception (.only exception:)]
+   ["[0]" io (.only IO io)]
    [concurrency
-    ["[0]" promise {"+" Promise}]]]
+    ["[0]" promise (.only Promise)]]]
   [data
    ["[0]" text ("[1]#[0]" hash)
-    ["%" format {"+" format}]
+    ["%" format (.only format)]
     ["[0]" encoding]]
    [collection
-    ["[0]" array {"+" Array}]]]
+    ["[0]" array (.only Array)]]]
   [macro
    ["[0]" template]]
   [math
-   [number {"+" hex}
+   [number (.only hex)
     ["n" nat]
     ["[0]" i64]]]
   [time
@@ -34,18 +34,18 @@
    ["_" scheme]]
   [tool
    [compiler
-    [phase {"+" Operation Phase}]
+    [phase (.only Operation Phase)]
     [reference
-     [variable {"+" Register}]]
+     [variable (.only Register)]]
     [language
      [lux
-      [program {"+" Program}]
-      [generation {"+" Context Host}]
+      [program (.only Program)]
+      [generation (.only Context Host)]
       ["[0]" synthesis]
       [analysis
-       [macro {"+" Expander}]]
+       [macro (.only Expander)]]
       [phase
-       ["[0]" extension {"+" Extender Handler}
+       ["[0]" extension (.only Extender Handler)
         ["[1]/[0]" bundle]
         ["[0]" analysis "_"
          ["[1]" scheme]]
@@ -56,7 +56,7 @@
         ["[0]" scheme
          ["[0]" runtime]]]]]]
     [default
-     ["[0]" platform {"+" Platform}]]
+     ["[0]" platform (.only Platform)]]
     [meta
      ["[0]" packager "_"
       ["[1]" scheme]]]]]]
-- 
cgit v1.2.3