Changeset 15197 in project


Ignore:
Timestamp:
07/09/09 02:23:19 (10 years ago)
Author:
Ivan Raikov
Message:

applied ssax patch from ticket #58

Location:
release/4/ssax
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/ssax/SSAX.scm

    r15175 r15197  
    627627     (else
    628628      (loop (cdr alist) (cons (car alist) scanned))))))
     629
     630; From SRFI-1
     631(define (fold-right kons knil lis1)
     632    (let recur ((lis lis1))
     633       (if (null? lis) knil
     634            (let ((head (car lis)))
     635              (kons head (recur (cdr lis)))))))
     636
     637; Left fold combinator for a single list
     638(define (fold kons knil lis1)
     639  (let lp ((lis lis1) (ans knil))
     640    (if (null? lis) ans
     641      (lp (cdr lis) (kons (car lis) ans)))))
     642
    629643
    630644
  • release/4/ssax/ssax-chicken.scm

    r15175 r15197  
    22;               Highest-level parsers: XML to SXML
    33
    4 (require-library input-parse srfi-1 srfi-13)
     4(require-library input-parse (except srfi-1 fold fold-right) srfi-13)
    55
    66(module ssax
Note: See TracChangeset for help on using the changeset viewer.