Ignore:
Timestamp:
10/07/09 22:52:11 (11 years ago)
Author:
Kon Lovett
Message:

Fix for synch variants

Location:
release/4/lookup-table/tags/1.11.2
Files:
2 copied

Legend:

Unmodified
Added
Removed
  • release/4/lookup-table/tags/1.11.2/lookup-table-unsafe-synch.scm

    r16134 r16148  
    66(module lookup-table-unsafe-synch (;export
    77  make-dict/synch
     8  alist->dict/synch
    89  dict?/synch
    9   alist->dict/%synch
    1010  dict->alist/%synch
    11   dict?/%synch
    1211  dict-equivalence-function/%synch
    1312  dict-count/%synch
     
    3433
    3534
    36 (define-constructor/synch make-dict dict/%synch:)
     35(define-constructor/synch make-dict dict/synch:)
     36(define-constructor/synch alist->dict dict/synch:)
    3737
    3838(define-predicate/synch dict?)
    3939
    40 (define-operation/%synch alist->dict)
    4140(define-operation/%synch dict->alist)
    42 (define-operation/%synch dict?)
    4341(define-operation/%synch dict-equivalence-function)
    4442(define-operation/%synch dict-count)
     
    5553(define-operation/%synch dict-for-each)
    5654(define-operation/%synch dict-search)
    57 (define-operation/%synch dict-merge!)
     55(define (dict-merge!/%synch mtxtbl1 mtxtbl2)
     56  (%let/synch ((tbl1 mtxtbl1) (tbl2 mtxtbl2))
     57    (dict-merge! tbl1 tbl2) ) )
    5858(define-operation/%synch dict-print)
    5959
Note: See TracChangeset for help on using the changeset viewer.