From 53400ecac12cc80382bf0d7cac1e03190e342e44 Mon Sep 17 00:00:00 2001 From: John Gabriele Date: Sat, 28 Nov 2020 14:41:42 -0500 Subject: [PATCH 1/7] boot.janet, compare*, light formatting Since those represent code, they should get backticks. --- src/boot/boot.janet | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 3da90a8d..1f74ef9a 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -731,11 +731,11 @@ ## Polymorphic comparisons (defn compare - `Polymorphic compare. Returns -1, 0, 1 for x < y, x = y, x > y respectively. + ``Polymorphic compare. Returns -1, 0, 1 for x < y, x = y, x > y respectively. Differs from the primitive comparators in that it first checks to - see whether either x or y implement a 'compare' method which can - compare x and y. If so it uses that compare method. If not, it - delegates to the primitive comparators.` + see whether either x or y implement a `compare` method which can + compare x and y. If so, it uses that compare method. If not, it + delegates to the primitive comparators.`` [x y] (or (when-let [f (get x :compare)] (f x y)) @@ -753,27 +753,27 @@ r) (defn compare= - "Equivalent of '=' but using compare function instead of primitive comparator" + ``Equivalent of `=` but using compare function instead of primitive comparator.`` [& xs] (compare-reduce = xs)) (defn compare< - "Equivalent of '<' but using compare function instead of primitive comparator" + ``Equivalent of `<` but using compare function instead of primitive comparator.`` [& xs] (compare-reduce < xs)) (defn compare<= - "Equivalent of '<=' but using compare function instead of primitive comparator" + ``Equivalent of `<=` but using compare function instead of primitive comparator.`` [& xs] (compare-reduce <= xs)) (defn compare> - "Equivalent of '>' but using compare function instead of primitive comparator" + ``Equivalent of `>` but using compare function instead of primitive comparator.`` [& xs] (compare-reduce > xs)) (defn compare>= - "Equivalent of '>=' but using compare function instead of primitive comparator" + ``Equivalent of `>=` but using compare function instead of primitive comparator.`` [& xs] (compare-reduce >= xs)) From 59f09a43864937337f4390ac61fb032c26f1fe8d Mon Sep 17 00:00:00 2001 From: John Gabriele Date: Sun, 29 Nov 2020 14:15:55 -0500 Subject: [PATCH 2/7] Update src/boot/boot.janet omit needless word Co-authored-by: Michael Camilleri --- src/boot/boot.janet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 1f74ef9a..a6dd5b4d 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -734,7 +734,7 @@ ``Polymorphic compare. Returns -1, 0, 1 for x < y, x = y, x > y respectively. Differs from the primitive comparators in that it first checks to see whether either x or y implement a `compare` method which can - compare x and y. If so, it uses that compare method. If not, it + compare x and y. If so, it uses that method. If not, it delegates to the primitive comparators.`` [x y] (or From a81e9f23f0b7f0ebfd93cd7fc1affeeec412e666 Mon Sep 17 00:00:00 2001 From: John Gabriele Date: Sun, 29 Nov 2020 14:16:55 -0500 Subject: [PATCH 3/7] Update src/boot/boot.janet Co-authored-by: Michael Camilleri --- src/boot/boot.janet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index a6dd5b4d..8c951c56 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -753,7 +753,7 @@ r) (defn compare= - ``Equivalent of `=` but using compare function instead of primitive comparator.`` + ``Equivalent of `=` but using polymorphic `compare` instead of primitive comparator.`` [& xs] (compare-reduce = xs)) From 31ae93de199dccd52c7802536c006dcc656af54a Mon Sep 17 00:00:00 2001 From: John Gabriele Date: Sun, 29 Nov 2020 14:17:12 -0500 Subject: [PATCH 4/7] Update src/boot/boot.janet Co-authored-by: Michael Camilleri --- src/boot/boot.janet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 8c951c56..5783d8c7 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -758,7 +758,7 @@ (compare-reduce = xs)) (defn compare< - ``Equivalent of `<` but using compare function instead of primitive comparator.`` + ``Equivalent of `<` but using polymorphic `compare` instead of primitive comparator.`` [& xs] (compare-reduce < xs)) From 2db9323671237b2f6acd37c0ad9f6625a88615d1 Mon Sep 17 00:00:00 2001 From: John Gabriele Date: Sun, 29 Nov 2020 14:17:23 -0500 Subject: [PATCH 5/7] Update src/boot/boot.janet Co-authored-by: Michael Camilleri --- src/boot/boot.janet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 5783d8c7..a85364e3 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -763,7 +763,7 @@ (compare-reduce < xs)) (defn compare<= - ``Equivalent of `<=` but using compare function instead of primitive comparator.`` + ``Equivalent of `<=` but using polymorphic `compare` instead of primitive comparator.`` [& xs] (compare-reduce <= xs)) From 7c75aeaad2ea6c1a442a94bac2328314937f2d53 Mon Sep 17 00:00:00 2001 From: John Gabriele Date: Sun, 29 Nov 2020 14:17:38 -0500 Subject: [PATCH 6/7] Update src/boot/boot.janet Co-authored-by: Michael Camilleri --- src/boot/boot.janet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index a85364e3..81f33233 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -768,7 +768,7 @@ (compare-reduce <= xs)) (defn compare> - ``Equivalent of `>` but using compare function instead of primitive comparator.`` + ``Equivalent of `>` but using polymorphic `compare` instead of primitive comparator.`` [& xs] (compare-reduce > xs)) From b922e36071a8613371b6ad5d1a646a74ca6cd982 Mon Sep 17 00:00:00 2001 From: John Gabriele Date: Sun, 29 Nov 2020 14:18:19 -0500 Subject: [PATCH 7/7] Update src/boot/boot.janet Co-authored-by: Michael Camilleri --- src/boot/boot.janet | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index 81f33233..43c6a151 100644 --- a/src/boot/boot.janet +++ b/src/boot/boot.janet @@ -773,7 +773,7 @@ (compare-reduce > xs)) (defn compare>= - ``Equivalent of `>=` but using compare function instead of primitive comparator.`` + ``Equivalent of `>=` but using polymorphic `compare` instead of primitive comparator.`` [& xs] (compare-reduce >= xs))