Changeset 20647 in project


Ignore:
Timestamp:
10/04/10 16:56:04 (10 years ago)
Author:
Ivan Raikov
Message:

rb-tree: fixed bug in find-ref

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/rb-tree/trunk/rb-tree.scm

    r20639 r20647  
    324324(define (find-ref key-compare root)
    325325  (lambda (key)
    326     (let recur ((key key))
     326    (let recur ((root root))
    327327      (cases tree root
    328328             (Empty ()  #f)
Note: See TracChangeset for help on using the changeset viewer.