Hi,
SRFI-18 states,
The mutex primitives specified in this SRFI do not implement
"recursive" mutex semantics; an attempt to lock a mutex that is
locked implies that the current thread must wait even if the mutex
is owned by the current thread
so, I want a macro or procedure to support "recursive" mutex.
Would be glad someone can note on it.
Here's my macro, not sure if it works:
Isn't there a similar code?
(define my-mutex (make-mutex))
(define-macro (my-lock . body)
`(let ([result #f])
(if (eq? (mutex-state my-mutex) (current-thread))
(set! result (begin ,@body))
;;else
(begin
(mutex-lock! my-mutex)
(set! result (begin ,@body))
(mutex-unlock! my-mutex)))
result))