- Added context-sensitive macro-expansion by means of "lux in-module", and removed all the (now unnecessary) #hidden tags.

- Fixed a bug when loading the imports from the cache.
- Added special notation for context-sensitive macro-expansion.

1 files changed, 7 insertions, 5 deletions

diff --git a/stdlib/source/lux/concurrency/actor.lux b/stdlib/source/lux/concurrency/actor.lux
index 9f3403aad..694234d17 100644
--- a/stdlib/source/lux/concurrency/actor.lux
+++ b/stdlib/source/lux/concurrency/actor.lux
@@ -52,8 +52,10 @@
       (io (let [[handle end] behavior
                 self (: (Actor ($ +0))
                         (@abstract {#mailbox (stm.var (:! (Message ($ +0)) []))
-                                    #kill-switch (P.promise Unit)
-                                    #obituary (P.promise (Obituary ($ +0)))}))
+                                    #kill-switch (: (P.Promise Unit)
+                                                    (P.promise #.None))
+                                    #obituary (: (P.Promise (Obituary ($ +0)))
+                                                 (P.promise #.None))}))
                 mailbox-channel (io.run (stm.follow (get@ #mailbox (@repr self))))
                 |mailbox| (stm.var mailbox-channel)
                 _ (P/map (function [_]
@@ -144,12 +146,12 @@
 
 ## [Syntax]
 (do-template [<with> <resolve> <tag> <desc>]
-  [(def: #hidden (<with> name)
+  [(def: #export (<with> name)
      (-> Ident cs.Annotations cs.Annotations)
      (|>> (#.Cons [(ident-for <tag>)
                    (code.tag name)])))
    
-   (def: #hidden (<resolve> name)
+   (def: #export (<resolve> name)
      (-> Ident (Meta Ident))
      (do Monad<Meta>
        [[_ annotations _] (macro.find-def name)]
@@ -170,7 +172,7 @@
             (p.seq s.local-symbol (:: p.Monad<Parser> wrap (list)))))
 
 (do-template [<name> <desc>]
-  [(def: #hidden <name>
+  [(def: #export <name>
      (-> Text Text)
      (|>> (format <desc> "@")))]