Changeset 15356 in project for release/4/sxml-fu/sxml-pagination.scm


Ignore:
Timestamp:
08/07/09 14:46:27 (11 years ago)
Author:
sjamaan
Message:

Change explicit default/text rules to alist-conv-rules, for readability

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sxml-fu/sxml-pagination.scm

    r13088 r15356  
    148148     ,(lambda (tag pg txt . rest)
    149149        `(a (@ (href ,(make-uri-string pg))) ,txt)))
    150     (*text* . ,(lambda (tag str) str))
    151     (*default* . ,(lambda x x))))
     150    ,@alist-conv-rules))
    152151)
Note: See TracChangeset for help on using the changeset viewer.