Changeset 4074 for trunk/library

Show
Ignore:
Timestamp:
02/11/08 03:32:51 (11 months ago)
Author:
pmoura
Message:

Corrected a bug in the implementation of the predicate lookup/3 in the library object "bintree".

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/library/bintree.lgt

    r3687 r4074  
    55 
    66    :- info([ 
    7         version is 1.1, 
     7        version is 1.2, 
    88        author is 'Paulo Moura', 
    9         date is 2006/9/17, 
     9        date is 2008/2/11, 
    1010        comment is 'Dictionary protocol implemented using binary trees.']). 
    1111 
    … …  
    5555    lookup_nonvar(<, Key, Value, _, Left, _) :- 
    5656        lookup_nonvar(Key, Value, Left). 
    57     lookup_nonvar(<, Key, Value, _, _, Right) :- 
     57    lookup_nonvar(>, Key, Value, _, _, Right) :- 
    5858        lookup_nonvar(Key, Value, Right). 
    5959