Changeset 15197 in project
- Timestamp:
- 07/09/09 02:23:19 (12 years ago)
- Location:
- release/4/ssax
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/ssax/SSAX.scm
r15175 r15197 627 627 (else 628 628 (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 629 643 630 644 -
release/4/ssax/ssax-chicken.scm
r15175 r15197 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
Note: See TracChangeset
for help on using the changeset viewer.