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

;; Issues
;;

(module critical-region

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

(import scheme chicken)

(declare (disable-interrupts))

;;;

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

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

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

;;;

) ;module critical-region