Ticket #58: ssax.diff
File ssax.diff, 1.1 KB (added by , 16 years ago) |
---|
-
SSAX.scm
627 627 (else 628 628 (loop (cdr alist) (cons (car alist) scanned)))))) 629 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))))))) 630 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 643 644 631 645 ;======================================================================== 632 646 ; Lower-level parsers and scanners 633 647 ; -
ssax-chicken.scm
1 1 ;======================================================================== 2 2 ; Highest-level parsers: XML to SXML 3 3 4 (require-library input-parse srfi-1srfi-13)4 (require-library input-parse (except srfi-1 fold fold-right) srfi-13) 5 5 6 6 (module ssax 7 7