Changeset 12429 in project


Ignore:
Timestamp:
11/10/08 02:54:14 (13 years ago)
Author:
Ivan Raikov
Message:

Fixes to for-ascending and descending.

Location:
release/3/rb-tree/trunk
Files:
3 edited

Legend:

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

    r7358 r12429  
    99
    1010     (history
     11      (version "2.4" "Fixes to for-each-ascending/descending")
    1112      (version "2.3" "Build script updated for better cross-platform compatibility")
    1213      (version "2.2" "Added fold-limit procedures")
  • release/3/rb-tree/trunk/rb-tree.scm

    r6055 r12429  
    491491        (match tree
    492492               (($ tree 'Empty)  (void))
    493                (($ tree 'Tree _ a _ x b)  (begin (appf a) (f x) (appf b)))))
     493               (($ tree 'Tree _ a k x b)  (begin (appf a) (f (cons k x)) (appf b)))))
    494494      (appf root))
    495495
     
    498498        (match tree
    499499               (($ tree 'Empty)  (void))
    500                (($ tree 'Tree _ a _ x b)  (begin (appf b) (f x) (appf a)))))
     500               (($ tree 'Tree _ a k x b)  (begin (appf b) (f (cons k x)) (appf a)))))
    501501      (appf root))
    502502
  • release/3/rb-tree/trunk/rb-tree.setup

    r6628 r12429  
    2121
    2222  ; Assoc list with properties for your extension:
    23   '((version 2.3)
     23  '((version 2.4)
    2424    (documentation "rb-tree.html")
    2525    ,@(if has-exports? `((exports "rb-tree.exports")) (list)) ))
Note: See TracChangeset for help on using the changeset viewer.