Check channel address when receiving payment in CLI

src/cli/handlers/payment.fif

@@ -138,6 +138,10 @@
   swap checkSigned
   // ( cliStateNice iou cliState iouPayload )
 
+  dup getIouPayloadAddr
+  5 pick getCliStateNiceCliState getCliStateAddr
+  addr= { fail"The payment is for a different channel" } ifnot
+
   _processPayment
   // ( cliStateNice cliState' )
 

src/lib/Address.fif

@@ -7,6 +7,17 @@ library Address  // Smart-contract address utilities
 "String.fif" include
 "ContractMessages.fif" include
 
+
+{ rot
+  =
+  ' = { 2drop false } cond
+} : addr=
+// ( wc1 addr1 wc2 addr2 -- bool )
+
+{ 8 i@+ 256 u@
+} : addr@
+// ( s -- wc addr )
+
 { 8 i@+ 256 u@+
 } : addr@+
 // ( s -- wc addr s )

src/lib/Iou.fif

@@ -26,6 +26,11 @@ library Iou  // IOUs
 } : parseIouPayload
 // ( iouPayload -- wc addr amount iou uome )
 
+{ <s
+  addr@
+} : getIouPayloadAddr
+// ( iouPayload -- wc addr )
+
 { <s
   addr@+ -rot drop drop
   120 u@