Changeset 35056 in project


Ignore:
Timestamp:
01/23/18 17:34:52 (9 months ago)
Author:
kon
Message:

fix id sort (>( since 2.5.0

Location:
release/4/apropos/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/apropos/trunk/apropos.scm

    r35052 r35056  
    760760(define (information-identifier<? info1 info2 #!optional (sort-key #:name))
    761761  (receive
    762     (fld1 fld2)
     762    (field-1-ref field-2-ref)
    763763      (if (eq? #:name sort-key)
    764764        (values information-name information-module)
    765765        (values information-module information-name) )
    766     ;
    767766    (let (
    768       (sym1 (fld1 info1) )
    769       (sym2 (fld1 info2) ) )
    770       ;
    771       (if (symbol-printname=? sym1 sym2)
    772         (let (
    773           (sym1 (fld2 info1) )
    774           (sym2 (fld2 info2) ) )
    775           ;
    776           (symbol-printname<? sym2 sym2) )
    777        (symbol-printname<? sym1 sym2) ) ) ) )
     767      (sym-1-1 (field-1-ref info1) )
     768      (sym-1-2 (field-1-ref info2) ) )
     769      (if (not (symbol-printname=? sym-1-1 sym-1-2))
     770        (symbol-printname<? sym-1-1 sym-1-2)
     771        (symbol-printname<? (field-2-ref info1) (field-2-ref info2)) ) ) ) )
    778772
    779773(define (information-kind info)
  • release/4/apropos/trunk/apropos.setup

    r35052 r35056  
    99  (exit 1) )
    1010
    11 (setup-shared-extension-module 'apropos (extension-version "2.6.4")
     11(setup-shared-extension-module 'apropos (extension-version "2.6.5")
    1212  #:types? #t
    1313  #:inline? #t
Note: See TracChangeset for help on using the changeset viewer.