Updated only/except import syntax to take into account record => variant syntax change.

1 files changed, 17 insertions, 17 deletions

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