eef7e0c37781a08402a5b901c4ac9c958cf85de4 — Evan Hanson 3 months ago b736a6c
Fix event mask check in `continue-program'
1 files changed, 4 insertions(+), 3 deletions(-)

M cdb.scm
M cdb.scm => cdb.scm +4 -3
@@ 557,9 557,10 @@ (fail 'i/o "client program terminated"))
      (forget-cached-results! current-remote-slots)
      ;; NOTE signal events always break so check against mask
-     (if (memq (dbg-info-type info) (current-mask))
-         (current-info info)
-         (continue-program))))
+     (if (and (eq? (dbg-info-type info) 'signal)
+              (not (memq 'signal (current-mask))))
+         (continue-program)
+         (current-info info))))
  
  (define (set-mask! x)
    (let ((mask (make-mask x)))