Changeset 13795 in project for release/4/apropos/trunk/apropos.scm


Ignore:
Timestamp:
03/17/09 04:06:08 (12 years ago)
Author:
Kon Lovett
Message:

Save.

File:
1 edited

Legend:

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

    r13753 r13795  
    1717;;
    1818;; - The Chicken 'environment' object does not hold the (syntactic) bindings
    19 ;; for all syntactic keywords from the R5RS. The public API of 'apropos'
     19;; for any syntactic keywords from the R5RS. The public API of 'apropos'
    2020;; attempts to hide this fact.
    2121
     
    321321      (newline) )
    322322
    323     (let ((lessp
    324             (case sortkey
    325               ((#:name) apropos-information-name<? )
    326               ((#:kind) apropos-information<? )
    327               (else     #f ) ) )
     323    (let ((lessp (case sortkey
     324                   ((#:name) apropos-information-name<? )
     325                   ((#:kind) apropos-information<? )
     326                   (else     #f ) ) )
    328327          (ail (*apropos-information-list syms macenv)))
    329328      (for-each display-symbol-information (if lessp (sort ail lessp) ail)) ) ) )
Note: See TracChangeset for help on using the changeset viewer.