diff --git a/net2o-ip.fs b/net2o-ip.fs index 102d925ca74412c628ef6d475f51842d6dd9b990..0b75bbb8cb24e20faaab2d265375181e4c4a52b4 100644 --- a/net2o-ip.fs +++ b/net2o-ip.fs @@ -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 diff --git a/net2o-socks.fs b/net2o-socks.fs index fa60ae151e9aaa711b6504719263429a44eace0e..8343f837f9dc99bb7089d685fec8f56b05e28b14 100644 --- a/net2o-socks.fs +++ b/net2o-socks.fs @@ -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 ;