;;;; critical-region.scm
;;;; Kon Lovett, Feb '18

(declare (disable-interrupts))

(module critical-region

(;export
  critical-region
  call-critical-region
  apply-critical-region)

(import scheme (chicken syntax))

;;;

(define-syntax critical-region
	(syntax-rules ()
    ((_ body ...)
      (call-critical-region (lambda () body ...)) ) ) )

(define (apply-critical-region proc . rest)
  (apply proc rest) )

(define (call-critical-region thunk)
  (thunk) )

;;;

) ;module critical-region