skip config
This commit is contained in:
parent
b497004f0b
commit
034a96bcc9
3
main.rkt
3
main.rkt
|
@ -22,6 +22,9 @@
|
||||||
(spawn (lambda (e s) #f)
|
(spawn (lambda (e s) #f)
|
||||||
(void)
|
(void)
|
||||||
(match (gethostname)
|
(match (gethostname)
|
||||||
|
["skip"
|
||||||
|
(gestalt-union (pub (gateway-route (bytes 0 0 0 0) 0 (bytes 192 168 1 1) "en0"))
|
||||||
|
(pub (host-route (bytes 192 168 1 222) 24 "en0")))]
|
||||||
["hop"
|
["hop"
|
||||||
(gestalt-union (pub (gateway-route (bytes 0 0 0 0) 0 (bytes 192 168 1 1) "wlan0"))
|
(gestalt-union (pub (gateway-route (bytes 0 0 0 0) 0 (bytes 192 168 1 1) "wlan0"))
|
||||||
(pub (host-route (bytes 192 168 1 222) 24 "wlan0")))]
|
(pub (host-route (bytes 192 168 1 222) 24 "wlan0")))]
|
||||||
|
|
Loading…
Reference in New Issue