From 1fabe19f7eacb668ef26cccde681dce5e2f98072 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 26 Oct 2017 14:48:05 -0400
Subject: - WIP: Wiring everything to get the compiler to work fully. - Fixed a
 bug when combining field/method/class modifiers.

---
 stdlib/source/lux.lux      | 4 ++--
 stdlib/source/lux/meta.lux | 7 ++++---
 2 files changed, 6 insertions(+), 5 deletions(-)

(limited to 'stdlib/source')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index e61666570..384fb67b6 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -568,10 +568,10 @@
                                default-def-meta-exported)))))
 
 ## (type: Source
-##   [Cursor Text])
+##   [Cursor Nat Text])
 ("lux def" Source
  (#Named ["lux" "Source"]
-         (#Product Cursor Text))
+         (#Product Cursor (#Product Nat Text)))
  (record$ default-def-meta-exported))
 
 ## (type: Module-State
diff --git a/stdlib/source/lux/meta.lux b/stdlib/source/lux/meta.lux
index 0d5ac7c0f..6f1fb2720 100644
--- a/stdlib/source/lux/meta.lux
+++ b/stdlib/source/lux/meta.lux
@@ -226,7 +226,7 @@
 
 (do-template [<name> <tag> <desc>]
   [(def: #export (<name> anns)
-     {#;doc (code;text ($_ text/compose "Looks up the arguments of a " <desc> "."))}
+     {#;doc <desc>}
      (-> Code (List Text))
      (maybe;default (list)
                     (do maybe;Monad<Maybe>
@@ -234,8 +234,9 @@
                        args (parse-tuple _args)]
                       (M;map @ parse-text args))))]
 
-  [func-args #;func-args "function"]
-  [type-args #;type-args "parameterized type"]
+  [func-args     #;func-args "Looks up the arguments of a function."]
+  [type-args     #;type-args "Looks up the arguments of a parameterized type."]
+  [declared-tags #;tags      "Looks up the tags of a tagged (variant or record) type."]
   )
 
 (def: (find-macro' modules this-module module name)
-- 
cgit v1.2.3