Hi folks,
Now that I've upgraded to 1.8.3 from 1.8.1, some old test cases are
failing. In particular:
(define (ensure body-lambda ensuring-lambda)
(dynamic-wind
(lambda () #t)
body-lambda
ensuring-lambda))
(define (with-sigaction signum handler flags lamb)
(let ((old-sigaction (sigaction signum)))
(if flags (sigaction signum handler flags) (sigaction signum handler))
(ensure
lamb
(lambda ()
(sigaction signum (car old-sigaction) (cdr old-sigaction))))))
;; imagine an appropriate (assert bool message) and (assert-equal a b msg)
(let ((orig (sigaction SIGALRM))
(sigcalled #f))
(with-sigaction
SIGALRM (lambda (sig) (set! sigcalled #t)) #f (lambda () (raise SIGALRM)))
(assert sigcalled "we set and handled an alarm")) ;; FAILS in 1.8.3
(assert-equal orig (sigaction SIGALRM) "returned to the original state")
(let ((outer "nop")
(inner "nop"))
(with-sigaction
SIGALRM (lambda (sig) (set! outer "outer")) #f
(lambda ()
(with-sigaction
SIGALRM (lambda (sig) (set! inner "inner")) #f
(lambda ()
(raise SIGALRM)))
(raise SIGALRM)))
(and (assert-equal "inner" inner "inner sig got handled") ;; FAILS
(assert-equal "outer" outer "outer sig got handled")))
(assert-equal orig (sigaction SIGALRM) "returned to the original state")
All of these passed in 1.8.1. If this is no longer The Recommended Way,
how would one go about it?
Many thanks,
Grem
--
------ __@ Gregory A. Marton http://csail.mit.edu/~gremio/
--- _`\<,_ .
-- (*)/ (*) Lots of Insidious Silly Parentheses (LISP :-)
~~~~~~~~~~~~~~~~-~~~~~~~~_~~~_~~~~~v~~~~^^^^~~~~~--~~~~~~~~~~~~~~~++~~~~~~~
