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

Fix for synch variants

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/lookup-table/trunk/tests/safe-synch.scm

    r16134 r16148  
    3232 
    3333      (let ((tbl2 (dict-update-dict!/synch tbl1 'dict)))
    34         (test-assert (dict?/synch (dict-ref/synch tbl1 'dict)))
    3534        (test tbl2 (dict-ref/synch tbl1 'dict))
    3635        (test tbl2 (dict-update-dict!/synch tbl1 'dict)) ) )
Note: See TracChangeset for help on using the changeset viewer.