Changeset 13482 in project for release/4/synch/trunk/synch.scm

Timestamp:

03/04/09 03:10:43 (12 years ago)

Author:

Kon Lovett

Message:

Save.

File:

• release/4/synch/trunk/synch.scm (modified) (8 diffs)

release/4/synch/trunk/synch.scm

@@ -20 +20 @@
   make-object/synch
   object?/synch
-  set-object!/synch
   synch
   synch-with
@@ -88 +87 @@
                   (pred ms)) ) ) ) ) )
 
-;;; Synonyms
-
-(define-syntax set-object!/synch
-  (syntax-rules ()
-    [(_ ?mutex ?obj) (mutex-specific-set! ?mutex ?obj) ] ) )
-
 ;;; Protected
 
@@ -258 +251 @@
 (define-syntax record/synch
   (lambda (form r c)
-    (##sys#check-syntax 'record/synch form '(_ variable _ . _))
+    (##sys#check-syntax 'record/synch form '(_ symbol _ . _))
     (let ([$synch (r 'synch)])
       (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
@@ -265 +258 @@
 (define-syntax record-synch/lock
   (lambda (form r c)
-    (##sys#check-syntax 'record-synch/lock form '(_ variable _ . _))
+    (##sys#check-syntax 'record-synch/lock form '(_ symbol _ . _))
     (let ([$synch/lock (r 'synch/lock)])
       (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
@@ -272 +265 @@
 (define-syntax record-synch/unlock
   (lambda (form r c)
-    (##sys#check-syntax 'record-synch/unlock form '(_ variable _ . _))
+    (##sys#check-syntax 'record-synch/unlock form '(_ symbol _ . _))
     (let ([$synch/unlock (r 'synch/unlock)])
       (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
@@ -418 +411 @@
 (define-syntax %record/synch
   (lambda (form r c)
-    (##sys#check-syntax '%record/synch form '(_ variable _ . _))
+    (##sys#check-syntax '%record/synch form '(_ symbol _ . _))
     (let ([$%synch (r '%synch)])
       (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
@@ -425 +418 @@
 (define-syntax %record-synch/lock
   (lambda (form r c)
-    (##sys#check-syntax '%record-synch/lock form '(_ variable _ . _))
+    (##sys#check-syntax '%record-synch/lock form '(_ symbol _ . _))
     (let ([$%synch/lock (r '%synch/lock)])
       (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])
@@ -432 +425 @@
 (define-syntax %record-synch/unlock
   (lambda (form r c)
-    (##sys#check-syntax '%record-synch/unlock form '(_ variable _ . _))
+    (##sys#check-syntax '%record-synch/unlock form '(_ symbol _ . _))
     (let ([$%synch/unlock (r '%synch/unlock)])
       (let ([?sym (cadr form)] [?rec (caddr form)] [?body (cdddr form)])