question about atomics

[joakim]

Hello,

I'm making a simple program that processes a lot of mail in separate
guile threads.

I would like a counter of how many messages have been processed so I made an 
attempt with
atomics.

first:
    (define *msgcount* (make-atomic-box 0))

and later:
    (atomic-box-swap! *msgcount* (+ 1 (atomic-box-ref *msgcount*)))

This of course doesn't work very well, and I didnt expect it to either.
(usually the count is low by a couple of hundred messages)

So basically, how do I get something similar to the swap! function in
clojure? Did I miss something in the documentation for guiles atomics?

I think I expected to be able to do the following:
    (atomic-box-swap! *msgcount* (lambda (atom) (+ 1 (atomic-box-ref atom))))

-- 
Joakim Verona
address@hidden