Tidy up debug output

arp.rkt

@@ -142,13 +142,18 @@
 			[(1) ;; request
 			 (if (set-member? (state-assertions s)
 					  (cache-key ptype target-protocol-address))
-			     (send (build-packet sender-hardware-address
-						 ptype
-						 2 ;; reply
-						 hwaddr
-						 target-protocol-address
-						 sender-hardware-address
-						 sender-protocol-address))
+			     (begin
+			       (log-info "~a ARP answering request for ~a/~a"
+					 interface-name
+					 ptype
+					 (pretty-bytes target-protocol-address))
+			       (send (build-packet sender-hardware-address
+						   ptype
+						   2 ;; reply
+						   hwaddr
+						   target-protocol-address
+						   sender-hardware-address
+						   sender-protocol-address)))
 			     '())]
 			[(2) '()] ;; reply
 			[else '()])

ip.rkt

@@ -174,9 +174,8 @@
 	     [(message (? ip-packet? p) _ _)
 	      (define gw-if (gateway-route-state-gateway-interface s))
 	      (when (not gw-if)
-		(log-warning "Gateway hwaddr for ~a not known, packet dropped: ~v"
-			     (ip-address->hostname gateway-addr)
-			     p))
+		(log-warning "Gateway hwaddr for ~a not known, packet dropped."
+			     (ip-address->hostname gateway-addr)))
 	      (and gw-if
 		   (not (equal? (ip-packet-source-interface p) (ethernet-interface-name gw-if)))
 		   (not (covered-by-some-other-route? (ip-packet-destination p)