Ticket #316: library.diff

library.scm

@@ -3917 +3926 @@
    q                                    ; #9 quantum
    (##core#undefined)                   ; #10 specific
    #f                                   ; #11 block object (type depends on blocking type)
-   '()                                  ; #12 recipients (currently unused)
+   '()                                  ; #12 recipients
    #f) )                                ; #13 unblocked by timeout?
 
 (define ##sys#primordial-thread (##sys#make-thread #f 'running 'primordial ##sys#default-thread-quantum))
@@ -3933 +3942 @@
    #f                                   ; #5 locked
    (##core#undefined) ) )               ; #6 specific
 
-(define (##sys#abandon-mutexes thread)
-  (let ([ms (##sys#slot thread 8)])
-    (unless (null? ms)
-      (##sys#for-each
-       (lambda (m)
-         (##sys#setislot m 2 #f)
-         (##sys#setislot m 4 #t) 
-         (##sys#setislot m 5 #f)
-         (##sys#setislot m 3 '()) )
-       ms) ) ) )
-
 (define (##sys#schedule) ((##sys#slot ##sys#current-thread 1)))
 
 (define (##sys#thread-yield!)