source: project/release/4/fluids/tags/1.0/tests/run.scm @ 26922

Last change on this file since 26922 was 26922, checked in by felix winkelmann, 9 years ago

fluids 1.0

File size: 408 bytes
Line 
1(use miscmacros fluids)
2
3(time (dotimes (i 10000)
4        (let ((f (make-fluid 'a))
5              (path '())
6              (g (make-fluid 'g))
7              (c #f))
8          (let ((add (lambda () (set! path (cons (f) path)))))
9            (add)
10            (fluids ((f 'b))
11                    (g (call-with-current-continuation (lambda (c0) (set! c c0) 'c)))
12                    (add) (f (g)) (add))
13            (f 'd)
14            (add)
15            (if (< (length path) 5)
16                (c 'e)
17                (reverse path))))))
Note: See TracBrowser for help on using the repository browser.