Ticket #58: ssax.diff

SSAX.scm

@@ -627 +627 @@
      (else
       (loop (cdr alist) (cons (car alist) scanned))))))
 
+; From SRFI-1
+(define (fold-right kons knil lis1)
+    (let recur ((lis lis1))
+       (if (null? lis) knil
+            (let ((head (car lis)))
+              (kons head (recur (cdr lis)))))))
 
+; Left fold combinator for a single list
+(define (fold kons knil lis1)
+  (let lp ((lis lis1) (ans knil))
+    (if (null? lis) ans
+      (lp (cdr lis) (kons (car lis) ans)))))
+
+
+
 ;========================================================================
 ;               Lower-level parsers and scanners
 ;

ssax-chicken.scm

@@ -1 +1 @@
 ;========================================================================
 ;               Highest-level parsers: XML to SXML
 
-(require-library input-parse srfi-1 srfi-13)
+(require-library input-parse (except srfi-1 fold fold-right) srfi-13)
 
 (module ssax