From a0889b2ee76c1ae7a9a5bbe2eec9f051b4f341e4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 26 Jul 2019 21:23:27 -0400
Subject: No more "n/"-prefixed functions.

---
 stdlib/source/program/scriptum.lux | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

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

diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index 3775fd006..f44abef88 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -12,6 +12,8 @@
    [data
     ["." maybe]
     ["." product]
+    [number
+     ["n" nat]]
     [format
      ["md" markdown (#+ Markdown Span Block)]]
     ["." text ("#;." equivalence)
@@ -40,8 +42,8 @@
     (text.from-code char)
 
     #.None
-    (format (parameter-type-name (n// name-options-count id))
-            (parameter-type-name (n/% name-options-count id)))))
+    (format (parameter-type-name (n./ name-options-count id))
+            (parameter-type-name (n.% name-options-count id)))))
 
 (def: type-var-names
   (Sequence Text)
@@ -52,13 +54,13 @@
      (-> Nat Bit)
      (<partition> id))]
 
-  [type-func? n/even?]
-  [type-arg? n/odd?]
+  [type-func? n.even?]
+  [type-arg? n.odd?]
   )
 
 (def: (arg-id level id)
   (-> Nat Nat Nat)
-  (n/- (n// 2 id) level))
+  (n.- (n./ 2 id) level))
 
 (def: (parameter->name [type-func-name type-function-arguments] level id)
   (-> [Text (List Text)] Nat Nat Text)
@@ -77,12 +79,12 @@
 
 (def: (level->args offset level)
   (-> Nat Nat (List Text))
-  (if (n/= 0 level)
+  (if (n.= 0 level)
     (list)
     (|> level
         dec
         (list.n/range 0)
-        (list;map (|>> (n/+ (inc offset)) parameter-type-name)))))
+        (list;map (|>> (n.+ (inc offset)) parameter-type-name)))))
 
 (def: (prefix-lines prefix lines)
   (-> Text Text Text)
@@ -174,7 +176,7 @@
         [_ (<tag> _)]
         (let [[level' body] (<flatten> type)
               args (level->args level level')
-              body-doc (pprint-type-definition (n/+ level level') type-func-info tags module signature? recursive-type? body)]
+              body-doc (pprint-type-definition (n.+ level level') type-func-info tags module signature? recursive-type? body)]
           (format "(" <name> " " "[" (text.join-with " " args) "]"
                   (case tags
                     #.Nil
@@ -239,7 +241,7 @@
       (<tag> _)
       (let [[level' body] (<flatten> type)
             args (level->args level level')
-            body-doc (pprint-type (n/+ level level') type-func-name module body)]
+            body-doc (pprint-type (n.+ level level') type-func-name module body)]
         (format "(" <name> " " "[" (|> args (list.interpose " ") (text.join-with "")) "]"
                 (format " " body-doc)
                 ")")))
@@ -318,7 +320,7 @@
 
 (def: (unravel-type-func level type)
   (-> Nat Type Type)
-  (if (n/> 0 level)
+  (if (n.> 0 level)
     (case type
       (#.UnivQ _env _type)
       (unravel-type-func (dec level) _type)
-- 
cgit v1.2.3