1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux
index 037259b8a..c257a2c0c 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/procedure/common.lux
@@ -24,7 +24,7 @@
        [".T" function]
        [".T" loop]))
 
-## [Types]
+... [Types]
 (type: .public Translator
   (-> ls.Synthesis (Meta Expression)))
 
@@ -35,7 +35,7 @@
   (Dict Text Proc))
 
 (syntax: (Vector {size s.nat} elemT)
-  (in (list (` [(~+ (list.repeat size elemT))]))))
+  (in (list (` [(~+ (list.repeated size elemT))]))))
 
 (type: .public Nullary (-> (Vector +0 Expression) Expression))
 (type: .public Unary   (-> (Vector +1 Expression) Expression))
@@ -43,7 +43,7 @@
 (type: .public Trinary (-> (Vector +3 Expression) Expression))
 (type: .public Variadic (-> (List Expression) Expression))
 
-## [Utils]
+... [Utils]
 (def: .public (install name unnamed)
   (-> Text (-> Text Proc)
       (-> Bundle Bundle))
@@ -65,7 +65,7 @@
 (syntax: (arity: {name s.local_identifier} {arity s.nat})
   (with_gensyms [g!_ g!proc g!name g!translate g!inputs]
     (do {@ macro.monad}
-      [g!input+ (monad.seq @ (list.repeat arity (macro.gensym "input")))]
+      [g!input+ (monad.seq @ (list.repeated arity (macro.gensym "input")))]
       (in (list (` (def: .public ((~ (code.local_identifier name)) (~ g!proc))
                        (-> (-> (..Vector (~ (code.nat arity)) Expression) Expression)
                            (-> Text ..Proc))
@@ -96,8 +96,8 @@
         [inputsI (monad.map @ translate inputsS)]
         (in (proc inputsI))))))
 
-## [Procedures]
-## [[Lux]]
+... [Procedures]
+... [[Lux]]
 (def: (lux//is [leftO rightO])
   Binary
   (r.apply (list leftO rightO)
@@ -147,7 +147,7 @@
       (install "recur" lux//recur)
       ))
 
-## [[Bits]]
+... [[Bits]]
 (template [<name> <op>]
   [(def: (<name> [subjectO paramO])
      Binary
@@ -180,7 +180,7 @@
           (install "arithmetic-right-shift" (binary bit//arithmetic_right_shifted))
           )))
 
-## [[Numbers]]
+... [[Numbers]]
 (host.import: java/lang/Double
   (#static MIN_VALUE Double)
   (#static MAX_VALUE Double))
@@ -276,7 +276,7 @@
           (install "encode" (unary frac//encode))
           (install "decode" (unary runtimeT.frac//decode)))))
 
-## [[Text]]
+... [[Text]]
 (def: (text//concat [subjectO paramO])
   Binary
   (r.apply (list subjectO paramO) (r.global "paste0")))
@@ -306,7 +306,7 @@
           (install "clip" (trinary text//clip))
           )))
 
-## [[IO]]
+... [[IO]]
 (def: (io//exit input)
   Unary
   (r.apply_kw (list)
@@ -327,7 +327,7 @@
           (install "current-time" (nullary (function (_ _)
                                              (runtimeT.io//current_time! runtimeT.unit)))))))
 
-## [Bundles]
+... [Bundles]
 (def: .public procedures
   Bundle
   (<| (prefix "lux")