75
75
my-self >r current-node @ >r \ Save my-self
76
76
(parse-line) open-dev dup IF
77
77
dup to my-self dup ihandle>phandle set-node
78
79
s" ping" rot ['] $call-method CATCH IF
80
81
." Not a pingable device"
85
87
." Usage: ping device-path:[device-args,]server-ip,[client-ip],[gateway-ip][,timeout]"