aboutsummaryrefslogtreecommitdiff
path: root/nix/libutil/serialise.cc
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2017-11-02 19:48:37 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2017-11-02 21:10:21 +0100
commit92c9392767e6d32eb4cd839e25247741318f9ea9 (patch)
treeba0aecf4b58be09aa0dba4a20d22b60042660ac1 /nix/libutil/serialise.cc
parentb39e61211528ddd25518c356391bfe2c5509ced5 (diff)
downloadguix-92c9392767e6d32eb4cd839e25247741318f9ea9.tar.gz
guix-92c9392767e6d32eb4cd839e25247741318f9ea9.zip
gnu: dconf-editor: Update to 3.26.2.
* gnu/packages/gnome.scm (dconf-editor): Update to 3.26.2.
Diffstat (limited to 'nix/libutil/serialise.cc')
0 files changed, 0 insertions, 0 deletions
t) (sleep 1) (poll))) result)) ;; Same as above, but throw exceptions within the workers and make sure they ;; remain alive. (test-equal "exceptions" 4242 (let* ((pool (make-pool 10)) (result 0) (1+! (let ((lock (make-mutex))) (lambda () (with-mutex lock (set! result (+ result 1))))))) (let loop ((i 10)) (unless (zero? i) (pool-enqueue! pool (lambda () (throw 'whatever))) (loop (- i 1)))) (let loop ((i 4242)) (unless (zero? i) (pool-enqueue! pool 1+!) (loop (- i 1)))) (let poll () (unless (pool-idle? pool) (pk 'busy result) (sleep 1) (poll))) result)) (test-end)