Changeset 15939 in project


Ignore:
Timestamp:
09/17/09 19:23:58 (10 years ago)
Author:
Christian Kellermann
Message:

hand down optional arguments as list, as optional parameters get initialised by chicken

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/mailbox-threads/trunk/mailbox-threads.scm

    r15420 r15939  
    8787      (mailbox-send! (thread-mbox thread) msg))
    8888
    89 (define (thread-receive #!optional timeout default)
    90       (mailbox-receive! (thread-mbox (current-thread)) timeout default))
     89(define (thread-receive . args)
     90      (apply mailbox-receive! (thread-mbox (current-thread)) args))
    9191
    92 (define (thread-mailbox-next #!optional timeout default)
     92(define (thread-mailbox-next . args)
    9393   (let* ((mbox-cursor (thread-mbox-cursor (current-thread))))
    94       (mailbox-cursor-next mbox-cursor timeout default)))
     94      (mailbox-cursor-next mbox-cursor args)))
    9595
    9696(define (thread-mailbox-rewind)
     
    9999
    100100(define (thread-mailbox-extract-and-rewind)
    101    (let* ((mbox-cursor (thread-mbox-cursor (current-thread))))
     101  (let* ((mbox-cursor (thread-mbox-cursor (current-thread))))
    102102      (mailbox-cursor-extract-and-rewind! mbox-cursor))) )
Note: See TracChangeset for help on using the changeset viewer.