mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-10-31 15:43:01 +00:00
Code Issues 1 Releases Wiki Activity

Fix polymorphic support in compare

Browse Source
This commit is contained in:
Michael Camilleri
2024-07-29 16:16:41 +09:00
parent 872b39cc32
commit 1f074671ce
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/boot/boot.janet
View File

@@ -819,11 +819,17 @@
(defmacro- do-compare
[x y]
~(if (def f (get ,x :compare))
(f ,x ,y)
(if (def f (get ,y :compare))
(- (f ,y ,x))
(cmp ,x ,y))))
~(do
(def f (get ,x :compare))
(def f-res (if f (f ,x ,y)))
(if f-res
f-res
(do
(def g (get ,y :compare))
(def g-res (if g (- (g ,y ,x))))
(if g-res
g-res
(cmp ,x ,y))))))
(defn compare
``Polymorphic compare. Returns -1, 0, 1 for x < y, x = y, x > y respectively.