Name: Anonymous 2011-01-29 15:19
#lang racket
(require ffi/unsafe/atomic)
(for ([i (in-naturals)])
(start-atomic)
(printf "~a~%" i)
(end-atomic))fireworks visualization
#lang racket
(require ffi/unsafe/atomic)
(for ([i (in-naturals)])
(start-atomic)
(printf "~a~%" i)
(end-atomic))(call-as-nonatomic (lambda () (for ([i (in-naturals)]) (start-atomic) (printf "~a~%" i) (end-atomic)))) because I am afraid of atomic things and then nothing happened ：（