hash-lang-uwu
/
CS3700-project2
2
0
Fork 0
Code Issues Releases Activity

Fix route< handling of selfOrigin

This commit is contained in:
xenia 2020-02-04 14:18:17 -05:00
parent f8d0547601
commit 5309ffbf4c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
router
View File

@ -60,7 +60,7 @@
(cond [(< x2 y2) (meow #t)] (cond [(< x2 y2) (meow #t)]
[(> x2 y2) (meow #f)]))) [(> x2 y2) (meow #f)])))
(cmp (compose - route-pref)) (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 (compose length route-as-path))
(cmp (lambda (x) (match (route-origin x) ['IGP 3] ['EGP 2] ['UNK 1]))) (cmp (lambda (x) (match (route-origin x) ['IGP 3] ['EGP 2] ['UNK 1])))
(cmp route-nexthop) (cmp route-nexthop)