X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=eightsync%2Fsystems%2Firc.scm;fp=eightsync%2Fsystems%2Firc.scm;h=0907bcdd21e36594b5197c599af12b8e381e5250;hp=e45db1a7c5b81be378a8327ccf4142c058be25d4;hb=bb0d4fc5de7ca8282542d8ec5b3b4ce6389b7cce;hpb=d757311a3fbec95274d1b4b39b1d78e30b1bb5e3

diff --git a/eightsync/systems/irc.scm b/eightsync/systems/irc.scm
index e45db1a..0907bcd 100755
--- a/eightsync/systems/irc.scm
+++ b/eightsync/systems/irc.scm
@@ -274,7 +274,9 @@
     (channels (value #t))
     (listen)))
 
-(define* (make-irc-bot-cli #:optional (line-handler default-line-handler))
+(define* (make-irc-bot-cli #:optional
+                           (line-handler default-line-handler)
+                           (print-and-continue-on-error #t))
   (define (main args)
     (let* ((options (getopt-long args option-spec))
            (hostname (option-ref options 'server #f))
@@ -283,7 +285,9 @@
            (username (option-ref options 'username #f))
            (listen (option-ref options 'listen #f))
            (channels (option-ref options 'channels ""))
-           (agenda (make-agenda)))
+           (agenda (if print-and-continue-on-error
+                       (make-agenda #:pre-unwind-handler print-error-and-continue)
+                       (make-agenda))))
       (display `((server ,hostname) (port ,port) (username ,username)
                  (listen ,listen) (channels-split ,(string-split channels #\space))))
       (newline)
@@ -299,4 +303,3 @@
   main)
 
 (define main (make-irc-bot-cli))
-