~evhan/beaker unlisted

eef7e0c37781a08402a5b901c4ac9c958cf85de4 — Evan Hanson 6 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)))