Minor naming & syntax improvements.

1 files changed, 11 insertions, 11 deletions

diff --git a/stdlib/source/library/lux/meta/macro/pattern.lux b/stdlib/source/library/lux/meta/macro/pattern.lux
index e642b1cd3..6ab386dd1 100644
--- a/stdlib/source/library/lux/meta/macro/pattern.lux
+++ b/stdlib/source/library/lux/meta/macro/pattern.lux
@@ -13,7 +13,7 @@
     [collection
      ["[0]" list (.use "[1]#[0]" monoid monad mix)]]]]]
  ["[0]" // (.only with_symbols)
-  [vocabulary (.only vocabulary)]
+  ["[0]" vocabulary]
   ["/[1]" // (.use "[1]#[0]" monad)]])
 
 (def locally
@@ -232,11 +232,11 @@
     {.#Item [init inits']}
     (.` {.#Item (., init) (., (untemplated_partial_list last inits'))})))
 
-(vocabulary
- [.public Spliced_UnQuote]
- [.public spliced_unquote]
- [.public spliced_unquote_macro]
- [.private named_spliced_unquote])
+(vocabulary.def
+  [.public Spliced_UnQuote]
+  [.public spliced_unquote]
+  [.public spliced_unquote_macro]
+  [.private named_spliced_unquote])
 
 (def (untemplated_composite <tag> g!meta untemplated_pattern elems)
   (-> Code Code (-> Code (Meta Code))
@@ -272,11 +272,11 @@
        (///.failure (..wrong_syntax_error (symbol ..,*)))}
       tokens))))
 
-(vocabulary
- [.public UnQuote]
- [.public unquote]
- [.public unquote_macro]
- [.private named_unquote])
+(vocabulary.def
+  [.public UnQuote]
+  [.public unquote]
+  [.public unquote_macro]
+  [.private named_unquote])
 
 (def (untemplated_pattern pattern)
   (-> Code (Meta Code))