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

Fix router< handling of origin field

This commit is contained in:
xenia 2020-02-04 14:21:02 -05:00
parent 5309ffbf4c
commit 0902781626
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

@ -62,7 +62,7 @@
(cmp (compose - route-pref)) (cmp (compose - route-pref))
(cmp (lambda (x) (if (route-self-origin? x) 0 1))) (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 1] ['EGP 2] ['UNK 3])))
(cmp route-nexthop) (cmp route-nexthop)
(error "your router is angery..."))) (error "your router is angery...")))