source: project/release/4/lookup-table/trunk/lookup-table-synch.scm @ 16134

Last change on this file since 16134 was 16134, checked in by Kon Lovett, 10 years ago

Test for /synch variants

File size: 1.5 KB
Line 
1;;;; lookup-table-synch.scm
2;;;; Kon Lovett, Sep '09
3
4;;;
5
6(module lookup-table-synch (;export
7  make-dict/synch
8  dict?/synch
9  alist->dict/synch
10  dict->alist/synch
11  dict?/synch
12  dict-equivalence-function/synch
13  dict-count/synch
14  dict-keys/synch
15  dict-values/synch
16  dict-ref/synch
17  dict-indempotent-ref!/synch
18  dict-set!/synch
19  dict-exists?/synch
20  dict-update!/synch
21  dict-update-list!/synch
22  dict-update-dict!/synch
23  dict-delete!/synch
24  dict-for-each/synch
25  dict-search/synch
26  dict-merge!/synch
27  dict-print/synch)
28
29  (import scheme chicken lookup-table synch)
30
31  (require-library lookup-table synch)
32
33;;; Synchronized Dictionary
34
35(define-constructor/synch make-dict dict/synch:)
36
37(define-predicate/synch dict?)
38
39(define-operation/synch alist->dict)
40(define-operation/synch dict->alist)
41(define-operation/synch dict?)
42(define-operation/synch dict-equivalence-function)
43(define-operation/synch dict-count)
44(define-operation/synch dict-keys)
45(define-operation/synch dict-values)
46(define-operation/synch dict-ref)
47(define-operation/synch dict-indempotent-ref!)
48(define-operation/synch dict-set!)
49(define-operation/synch dict-exists?)
50(define-operation/synch dict-update!)
51(define-operation/synch dict-update-list!)
52(define-operation/synch dict-update-dict!)
53(define-operation/synch dict-delete!)
54(define-operation/synch dict-for-each)
55(define-operation/synch dict-search)
56(define-operation/synch dict-merge!)
57(define-operation/synch dict-print)
58
59) ;module lookup-table-synch
Note: See TracBrowser for help on using the repository browser.