This is the mail archive of the guile@cygnus.com mailing list for the guile project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

An addition to the ice-9/threads.scm


I think it would be a good idea to add the following to ice-9/threads.scm,
so that programs that use mutexes to protect things won't break on a Guile
without thread support:

------------------->8 cut 8<----------------------------

;; In the case of no threads, define the mutex functions,
;; so that cautious programs won't break:
(if (not (memq 'threads *features*))
    (begin
      (define-public (make-mutex) #t)
      (define-public (lock-mutex m) #t)
      (define-public (unlock-mutex m) #t)))