Changeset 37026 in project


Ignore:
Timestamp:
12/24/18 23:16:48 (6 months ago)
Author:
kon
Message:

rmv unused

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/synch/trunk/synch-dyn.scm

    r36991 r37026  
    5555
    5656;;
    57 
    58 #; ;
    59 (define-syntax synch
    60   (syntax-rules ()
    61     ;
    62     ((synch (?mtx (?lock-arg0 ...) (?unlock-arg0 ...)) ?body ...)
    63       ;eval args ahead of time
    64       (let (
    65         (mtx ?mtx)
    66         (lock-args (list ?lock-arg0 ...))
    67         (unlock-args (list ?unlock-arg0 ...)) )
    68         ;do not continue when cannot get a lock
    69         (when (apply mutex-lock! mtx lock-args)
    70           (dynamic-wind
    71             void
    72             (lambda () ?body ...)
    73             (lambda () (apply mutex-unlock! mtx unlock-args))) ) ) )
    74     ;
    75     ((synch (?mtx (?lock-arg0 ...)) ?body ...)
    76       (synch (?mtx (?lock-arg0 ...) ()) ?body ...) )
    77     ;
    78     ((synch (?mtx) ?body ...)
    79       (synch (?mtx () ()) ?body ...) )
    80     ;
    81     ((synch ?mtx ?body ...)
    82       (synch (?mtx) ?body ...) ) ) )
    8357
    8458(define-syntax synch
Note: See TracChangeset for help on using the changeset viewer.