I need tsome hlep finding an answer to soemthing in scheme. This is
not a homework problem and top prove it i will post my orginal code if
any one can help I appreciate it.

A semaphore (of size n) is a generalization of a mutex. Like a mutex,
a semaphore supports acquire and release operations, but it is more
general in that up to n processes can acquire it concurrently.
Additional processes that attempt to acquire the semaphore must wait
for release operations. Give implementations of semaphores in terms of
mutexes and in terms os atomict-test-and set.

Here is what i think i need to do for setting mutxes is therre
somehwre i can confirm this?

(define (make-mutex)
  (let ((cell (list false)))            
    (define (the-mutex m)
      (cond ((eq? m 'acquire)
             (if (test-and-set! cell)
                 (the-mutex 'acquire))) ; retry
            ((eq? m 'release) (clear! cell))))
    the-mutex))
(define (clear! cell)
  (set-car! cell false))