mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-10-18 16:05:47 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #1480 from pyrmont/bugfix.fallback-compare

Browse Source 
Fix fallback support in polymorphic compare
This commit is contained in:
Calvin Rose 2024-07-31 06:05:27 -07:00 committed by GitHub
commit d1104b5a65
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 11 additions and 5 deletions
Show Stats 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.