Fix route< handling of selfOrigin
This commit is contained in:
parent
f8d0547601
commit
5309ffbf4c
2
router
2
router
|
@ -60,7 +60,7 @@
|
|||
(cond [(< x2 y2) (meow #t)]
|
||||
[(> x2 y2) (meow #f)])))
|
||||
(cmp (compose - route-pref))
|
||||
(cmp (lambda (x) (if (route-self-origin? x) 1 0)))
|
||||
(cmp (lambda (x) (if (route-self-origin? x) 0 1)))
|
||||
(cmp (compose length route-as-path))
|
||||
(cmp (lambda (x) (match (route-origin x) ['IGP 3] ['EGP 2] ['UNK 1])))
|
||||
(cmp route-nexthop)
|
||||
|
|
Loading…
Reference in New Issue