[COMMITTED 2/2] poked: Check exceptions after `pk_call`

[Mohammad-Reza Nabipoor]

2022-03-10  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>

        * poked/poked.c (poked_buf_send): Check exception after `pk_call`.
        (main): Likewise.
---
 ChangeLog     | 5 +++++
 poked/poked.c | 7 +++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 12260363..380b11f0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-03-10  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
+
+       * poked/poked.c (poked_buf_send): Check exception after `pk_call`.
+       (main): Likewise.
+
 2022-03-10  Mohammad-Reza Nabipoor  <mnabipoor@gnu.org>
 
        * poked/poked.c (termout_chan): Renamed from `out_chan`.
diff --git a/poked/poked.c b/poked/poked.c
index fd2e40af..fcf08e1e 100644
--- a/poked/poked.c
+++ b/poked/poked.c
@@ -88,6 +88,7 @@ poked_buf_send (void)
   uint8_t lbuf[2];
   size_t memlen;
   uint8_t *mem;
+  pk_val exc;
 
   assert (nelem > 2);
 
@@ -102,7 +103,8 @@ poked_buf_send (void)
   usock_out (srv, /*no kind*/ 0, chan, mem, memlen);
   free (mem);
 
-  (void)pk_call (pkc, pk_decl_val (pkc, "__chan_send_reset"), NULL, NULL, 0);
+  (void)pk_call (pkc, pk_decl_val (pkc, "__chan_send_reset"), NULL, &exc, 0);
+  assert (exc == PK_NULL);
 }
 
 static void
@@ -245,8 +247,9 @@ poked_restart:
             {
               usock_out (srv, VUKIND_CLEAR, USOCK_CHAN_OUT_VU, "", 1);
               termout_vu_append ();
-              (void)pk_call (pkc, pk_decl_val (pkc, "__vu_dump"), NULL, NULL,
+              (void)pk_call (pkc, pk_decl_val (pkc, "__vu_dump"), NULL, &exc,
                              0);
+              assert (exc == PK_NULL);
               termout_restore ();
             }
           if (pk_int_value (pk_decl_val (pkc, "__chan_send_p")))
-- 
2.35.1