From 744ee69630de59ca3ba660b0aab6361cd17ce1b4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 30 Jun 2021 23:24:55 -0400
Subject: "signature:" -> "interface:" & "structure:" -> "implementation:"

"signature" & "structure" feel like very ML-specific terminology and might not be easy on programmers unfamiliar with it.---
 stdlib/source/program/scriptum.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/program/scriptum.lux')

diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index 2a205287a..a32a14f8f 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -267,7 +267,7 @@
 (type: Organization
   {#types (List Value)
    #macros (List [Text Code])
-   #structures (List Value)
+   #implementations (List Value)
    #values (List Value)})
 
 (def: (lux-module? module-name)
@@ -289,8 +289,8 @@
                     (|>> (#.Cons [name def-annotations])))
                  organization)
 
-        (macro.structure? def-annotations)
-        (update@ #structures
+        (macro.implementation? def-annotations)
+        (update@ #implementations
                  (: (Mutation (List Value))
                     (|>> (#.Cons [name def-annotations def-type])))
                  organization)
@@ -311,12 +311,12 @@
   (-> (List [Text Definition]) Organization)
   (let [init {#types (list)
               #macros (list)
-              #structures (list)
+              #implementations (list)
               #values (list)}]
     (|> (list\fold add-definition init defs)
         (update@ #types (list.sort name-sort))
         (update@ #macros (list.sort name-sort))
-        (update@ #structures (list.sort name-sort))
+        (update@ #implementations (list.sort name-sort))
         (update@ #values (list.sort name-sort)))))
 
 (def: (unravel-type-func level type)
@@ -359,7 +359,7 @@
                      _
                      (format "(" (text.join-with " " (list& _name type-arguments)) ")"))
              nesting (list.size type-arguments)]]
-      (wrap (md.code (format (if signature? "(signature: " "(type: ")
+      (wrap (md.code (format (if signature? "(interface: " "(type: ")
                              (if recursive-type? "#rec " "")
                              usage text.new-line
                              (|> type
@@ -440,7 +440,7 @@
          (list\fold (function.flip md.then)
                     (md.heading/2 <header>))))]
 
-  [document-structure document-structures "Structures"]
+  [document-implementation document-implementations "Implementations"]
   [document-value     document-values     "Values"]
   )
 
@@ -454,7 +454,7 @@
 (def: (document-module [[module-name module] organization])
   (-> [[Text Module] Organization] (Meta [Text (Markdown Block)]))
   (do macro.monad
-    [#let [(^slots [#types #macros #structures #values]) organization
+    [#let [(^slots [#types #macros #implementations #values]) organization
            annotations (|> module
                            (get@ #.module-annotations)
                            (maybe.default (' {}))
@@ -472,7 +472,7 @@
      #let [documentation ($_ md.then
                              types-documentation
                              (if (list.empty? macros) empty-block (document-macros module-name macros))
-                             (if (list.empty? structures) empty-block (document-structures module-name structures))
+                             (if (list.empty? implementations) empty-block (document-implementations module-name implementations))
                              (if (list.empty? values) empty-block (document-values module-name values)))]]
     (wrap [module-name
            ($_ md.then
-- 
cgit v1.2.3