Commit 6ca7f7e8 authored by bernd's avatar bernd

rename p+ to pathc+

parent 34a77a2a
......@@ -299,13 +299,13 @@ Forward !my-addr ( -- )
nat( ticks .ticks ." ping: " 2dup .address cr )
2>r net2o-sock ">" 0 2r> sendto drop ;
: p+ ( addr u -- addr' u' )
: pathc+ ( addr u -- addr' u' )
BEGIN dup WHILE over c@ $80 < >r 1 /string r> UNTIL THEN ;
: .addr-path ( addr -- )
dup be@ routes #.key dup 0= IF drop $10 xtype ELSE
$@ .address
$10 p+ 0 -skip dup IF '|' emit THEN xtype THEN ;
$10 pathc+ 0 -skip dup IF '|' emit THEN xtype THEN ;
\ Create udp socket
......
......@@ -204,7 +204,7 @@ Variable lastn2oaddr
path r> plen move ;
: skip-dest ( addr -- )
$10 2dup 0 scan nip -
2dup p+ { addr1 u1 addr2 u2 } \ better use locals here
2dup pathc+ { addr1 u1 addr2 u2 } \ better use locals here
addr2 addr1 u2 move
addr1 u1 u2 /string erase ;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment