mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-06-24 22:23:15 +00:00
Code Issues 1 Releases Wiki Activity

Properly hide private functions in boot.janet

Browse Source
This commit is contained in:
Calvin Rose 2020-06-10 00:02:07 -05:00
parent 2a9923999b
commit 2595c8a853
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/boot/boot.janet
View File

@ -692,7 +692,7 @@
fyx (f y x)] (- fyx)) fyx (f y x)] (- fyx))
(compare-primitive x y))) (compare-primitive x y)))
(defn compare-reduce- [op xs] (defn- compare-reduce [op xs]
(var r true) (var r true)
(loop [i :range [0 (- (length xs) 1)] (loop [i :range [0 (- (length xs) 1)]
:let [c (compare (xs i) (xs (+ i 1))) :let [c (compare (xs i) (xs (+ i 1)))
@ -705,27 +705,29 @@
(defn compare= (defn compare=
"Equivalent of '=' but using compare function instead of primitive comparator" "Equivalent of '=' but using compare function instead of primitive comparator"
[& xs] [& xs]
(compare-reduce- = xs)) (compare-reduce = xs))
(defn compare< (defn compare<
"Equivalent of '<' but using compare function instead of primitive comparator" "Equivalent of '<' but using compare function instead of primitive comparator"
[& xs] [& xs]
(compare-reduce- < xs)) (compare-reduce < xs))
(defn compare<= (defn compare<=
"Equivalent of '<=' but using compare function instead of primitive comparator" "Equivalent of '<=' but using compare function instead of primitive comparator"
[& xs] [& xs]
(compare-reduce- <= xs)) (compare-reduce <= xs))
(defn compare> (defn compare>
"Equivalent of '>' but using compare function instead of primitive comparator" "Equivalent of '>' but using compare function instead of primitive comparator"
[& xs] [& xs]
(compare-reduce- > xs)) (compare-reduce > xs))
(defn compare>= (defn compare>=
"Equivalent of '>=' but using compare function instead of primitive comparator" "Equivalent of '>=' but using compare function instead of primitive comparator"
[& xs] [& xs]
(compare-reduce- >= xs)) (compare-reduce >= xs))
(put _env 'compare-reduce nil)
### ###
### ###