Changeset 13482 in project


Ignore:
Timestamp:
03/04/09 03:10:43 (11 years ago)
Author:
Kon Lovett
Message:

Save.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/synch/trunk/synch.scm

    r13480 r13482  
    2020  make-object/synch
    2121  object?/synch
    22   set-object!/synch
    2322  synch
    2423  synch-with
     
    8887                  (pred ms)) ) ) ) ) )
    8988
    90 ;;; Synonyms
    91 
    92 (define-syntax set-object!/synch
    93   (syntax-rules ()
    94     [(_ ?mutex ?obj) (mutex-specific-set! ?mutex ?obj) ] ) )
    95 
    9689;;; Protected
    9790
     
    258251(define-syntax record/synch
    259252  (lambda (form r c)
    260     (##sys#check-syntax 'record/synch form '(_ variable _ . _))
     253    (##sys#check-syntax 'record/synch form '(_ symbol _ . _))
    261254    (let ([$synch (r 'synch)])
    262255      (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
     
    265258(define-syntax record-synch/lock
    266259  (lambda (form r c)
    267     (##sys#check-syntax 'record-synch/lock form '(_ variable _ . _))
     260    (##sys#check-syntax 'record-synch/lock form '(_ symbol _ . _))
    268261    (let ([$synch/lock (r 'synch/lock)])
    269262      (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
     
    272265(define-syntax record-synch/unlock
    273266  (lambda (form r c)
    274     (##sys#check-syntax 'record-synch/unlock form '(_ variable _ . _))
     267    (##sys#check-syntax 'record-synch/unlock form '(_ symbol _ . _))
    275268    (let ([$synch/unlock (r 'synch/unlock)])
    276269      (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
     
    418411(define-syntax %record/synch
    419412  (lambda (form r c)
    420     (##sys#check-syntax '%record/synch form '(_ variable _ . _))
     413    (##sys#check-syntax '%record/synch form '(_ symbol _ . _))
    421414    (let ([$%synch (r '%synch)])
    422415      (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
     
    425418(define-syntax %record-synch/lock
    426419  (lambda (form r c)
    427     (##sys#check-syntax '%record-synch/lock form '(_ variable _ . _))
     420    (##sys#check-syntax '%record-synch/lock form '(_ symbol _ . _))
    428421    (let ([$%synch/lock (r '%synch/lock)])
    429422      (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
     
    432425(define-syntax %record-synch/unlock
    433426  (lambda (form r c)
    434     (##sys#check-syntax '%record-synch/unlock form '(_ variable _ . _))
     427    (##sys#check-syntax '%record-synch/unlock form '(_ symbol _ . _))
    435428    (let ([$%synch/unlock (r '%synch/unlock)])
    436429      (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
Note: See TracChangeset for help on using the changeset viewer.