/[guile]/guile/guile-core/ice-9/threads.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/threads.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by mdj, Wed Dec 4 22:06:15 2002 UTC revision 1.13 by mdj, Mon Dec 9 12:58:52 2002 UTC
# Line 63  Line 63 
63    :export-syntax (make-thread    :export-syntax (make-thread
64                    begin-thread                    begin-thread
65                    parallel                    parallel
66                      letpar
67                    with-mutex                    with-mutex
68                    monitor))                    monitor))
69    
# Line 188  Line 189 
189                (wait-condition-variable ,c ,m)                (wait-condition-variable ,c ,m)
190                (values ,@vars))))))                (values ,@vars))))))
191    
192    (defmacro letpar (bindings . body)
193      `(call-with-values
194           (lambda ()
195             (parallel ,@(map cadr bindings)))
196         (lambda ,(map car bindings)
197           ,@body)))
198    
199  (defmacro with-mutex (m . body)  (defmacro with-mutex (m . body)
200    `(dynamic-wind    `(dynamic-wind
201         (lambda () (lock-mutex ,m))         (lambda () (lock-mutex ,m))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26