From 0d909187d5b9effcd08f533d50af7d29c0d6bfd8 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Fri, 8 Apr 2022 05:42:36 -0400 Subject: De-sigil-ification: $ --- stdlib/source/documentation/lux.lux | 24 +++++----- stdlib/source/documentation/lux/macro/syntax.lux | 46 +++++++++---------- stdlib/source/documentation/lux/math/logic.lux | 28 ++++++------ stdlib/source/documentation/lux/world.lux | 58 ++++++++++++------------ 4 files changed, 78 insertions(+), 78 deletions(-) (limited to 'stdlib/source/documentation') diff --git a/stdlib/source/documentation/lux.lux b/stdlib/source/documentation/lux.lux index 31161cb4f..468fc588f 100644 --- a/stdlib/source/documentation/lux.lux +++ b/stdlib/source/documentation/lux.lux @@ -208,15 +208,15 @@ [(= (Tuple) (And))]) -(documentation: /._$ +(documentation: /.left "Left-association for the application of binary functions over variadic arguments." - [(_$ text#composite "Hello, " name ". How are you?") + [(left text#composite "Hello, " name ". How are you?") "=>" (text#composite (text#composite "Hello, " name) ". How are you?")]) -(documentation: /.$_ +(documentation: /.all "Right-association for the application of binary functions over variadic arguments." - [($_ text#composite "Hello, " name ". How are you?") + [(all text#composite "Hello, " name ". How are you?") "=>" (text#composite "Hello, " (text#composite name ". How are you?"))]) @@ -353,7 +353,7 @@ [(case (is (List Int) (list +1 +2 +3)) {#Item x {#Item y {#Item z {#End}}}} - {#Some ($_ * x y z)} + {#Some (all * x y z)} _ {#None})]) @@ -364,7 +364,7 @@ [(case (is (List Int) (list +1 +2 +3)) (pattern (list x y z)) - {#Some ($_ * x y z)} + {#Some (all * x y z)} _ {#None})]) @@ -711,9 +711,9 @@ [form (list (bit #1)) "(#1)"] [tuple (list (bit #1)) "[#1]"] )] - ($_ and - - )))]) + (all and + + )))]) (documentation: /.static (format "Resolves the names of definitions to their values at compile-time, assuming their values are either:" @@ -837,7 +837,7 @@ 2 3 4)] - ($_ + ))]) + (all + ))]) (documentation: /.char "If given a 1-character text literal, yields the char-code of the sole character." @@ -936,8 +936,8 @@ ..Tuple ..Or ..And - .._$ - ..$_ + ..left + ..all ..if ..Primitive ..` diff --git a/stdlib/source/documentation/lux/macro/syntax.lux b/stdlib/source/documentation/lux/macro/syntax.lux index 866221b4b..c4867ea7a 100644 --- a/stdlib/source/documentation/lux/macro/syntax.lux +++ b/stdlib/source/documentation/lux/macro/syntax.lux @@ -1,22 +1,22 @@ (.using - [library - [lux {"-" char} - ["$" documentation {"+" documentation:}] - [data - [text {"+" \n} - ["%" format {"+" format}]] - [collection - ["[0]" list]]]]] - ["[0]" / "_" - ["[1][0]" check] - ["[1][0]" declaration] - ["[1][0]" definition] - ["[1][0]" export] - ["[1][0]" input] - ["[1][0]" type "_" - ["[1]/[0]" variable]]] - [\\library - ["[0]" /]]) + [library + [lux {"-" char} + ["$" documentation {"+" documentation:}] + [data + [text {"+" \n} + ["%" format {"+" format}]] + [collection + ["[0]" list]]]]] + ["[0]" / "_" + ["[1][0]" check] + ["[1][0]" declaration] + ["[1][0]" definition] + ["[1][0]" export] + ["[1][0]" input] + ["[1][0]" type "_" + ["[1]/[0]" variable]]] + [\\library + ["[0]" /]]) (documentation: /.syntax: (format \n "A more advanced way to define macros than 'macro:'." @@ -29,11 +29,11 @@ interfaces (tuple (some (super_class_decl^ imports class_vars))) constructor_args (constructor_args^ imports class_vars) methods (some (overriden_method_def^ imports))]) - (let [def_code ($_ text#composite "anon-class:" - (spaced (list (super_class_decl$ (maybe.else object_super_class super)) - (with_brackets (spaced (list#each super_class_decl$ interfaces))) - (with_brackets (spaced (list#each constructor_arg$ constructor_args))) - (with_brackets (spaced (list#each (method_def$ id) methods))))))] + (let [def_code (all text#composite "anon-class:" + (spaced (list (super_class_decl$ (maybe.else object_super_class super)) + (with_brackets (spaced (list#each super_class_decl$ interfaces))) + (with_brackets (spaced (list#each constructor_arg$ constructor_args))) + (with_brackets (spaced (list#each (method_def$ id) methods))))))] (in (list (` ((~ (code.text def_code))))))))]) (.def: .public documentation diff --git a/stdlib/source/documentation/lux/math/logic.lux b/stdlib/source/documentation/lux/math/logic.lux index 02db866cc..11d930333 100644 --- a/stdlib/source/documentation/lux/math/logic.lux +++ b/stdlib/source/documentation/lux/math/logic.lux @@ -1,18 +1,18 @@ (.using - [library - [lux {"-" char} - ["$" documentation {"+" documentation:}] - [data - [text - ["%" format {"+" format}]] - [collection - ["[0]" list ("[1]#[0]" monoid)]]]]] - ["[0]" / "_" - ["[1][0]" continuous] - ["[1][0]" fuzzy]]) + [library + [lux {"-" char} + ["$" documentation {"+" documentation:}] + [data + [text + ["%" format {"+" format}]] + [collection + ["[0]" list ("[1]#[0]" monoid)]]]]] + ["[0]" / "_" + ["[1][0]" continuous] + ["[1][0]" fuzzy]]) (.def: .public documentation (.List $.Module) - ($_ list#composite - /continuous.documentation - /fuzzy.documentation)) + (all list#composite + /continuous.documentation + /fuzzy.documentation)) diff --git a/stdlib/source/documentation/lux/world.lux b/stdlib/source/documentation/lux/world.lux index f199a1e93..d226dfa3d 100644 --- a/stdlib/source/documentation/lux/world.lux +++ b/stdlib/source/documentation/lux/world.lux @@ -1,33 +1,33 @@ (.using - [library - [lux "*" - [program {"+" program:}] - ["$" documentation {"+" documentation:}] - ["[0]" debug] - [control - ["[0]" io]] - [data - [collection - ["[0]" list ("[1]#[0]" monoid)]]]]] - ["[0]" / "_" - ["[1][0]" console] - ["[1][0]" file] - ["[1][0]" input "_" - ["[1]/[0]" keyboard]] - ["[1][0]" net] - ["[1][0]" output "_" - ["[1]/[0]" video "_" - ["[1]/[0]" resolution]]] - ["[1][0]" program] - ["[1][0]" shell]]) + [library + [lux "*" + [program {"+" program:}] + ["$" documentation {"+" documentation:}] + ["[0]" debug] + [control + ["[0]" io]] + [data + [collection + ["[0]" list ("[1]#[0]" monoid)]]]]] + ["[0]" / "_" + ["[1][0]" console] + ["[1][0]" file] + ["[1][0]" input "_" + ["[1]/[0]" keyboard]] + ["[1][0]" net] + ["[1][0]" output "_" + ["[1]/[0]" video "_" + ["[1]/[0]" resolution]]] + ["[1][0]" program] + ["[1][0]" shell]]) (.def: .public documentation (.List $.Module) - ($_ list#composite - /console.documentation - /file.documentation - /input/keyboard.documentation - /net.documentation - /output/video/resolution.documentation - /program.documentation - /shell.documentation)) + (all list#composite + /console.documentation + /file.documentation + /input/keyboard.documentation + /net.documentation + /output/video/resolution.documentation + /program.documentation + /shell.documentation)) -- cgit v1.2.3