Changeset 15197 in project

Timestamp:

07/09/09 02:23:19 (11 years ago)

Author:

Ivan Raikov

Message:

applied ssax patch from ticket #58

Location:

release/4/ssax

Files:

• SSAX.scm (modified) (1 diff)
• ssax-chicken.scm (modified) (1 diff)

release/4/ssax/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)))))
+
 
 

release/4/ssax/ssax-chicken.scm

@@ -2 +2 @@
 ;               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