Ticket #1174: srfi-42-append-ec.patch

srfi-42.scm

@@ -33 +33 @@
 
 (module srfi-42
 
-        ( do-ec list-ec append-ec string-ec
+        ( do-ec list-ec (append-ec append*) string-ec
           string-append-ec vector-ec vector-of-length-ec
           sum-ec product-ec min-ec max-ec any?-ec
           every?-ec first-ec last-ec fold-ec fold3-ec
@@ -892 +892 @@
 (define-syntax append-ec
   (syntax-rules ()
     ((append-ec etc1 etc ...)
-     (apply append (list-ec etc1 etc ...)) )))
+     (append* (list-ec etc1 etc ...)) )))
+
+;; Copied from srfi-1, changed to accept only one argument:
+(define (append* lists)
+  (if (pair? lists)
+      (let recur ((list1 (car lists)) (lists (cdr lists)))
+        (if (pair? lists)
+            (let ((tail (recur (car lists) (cdr lists))))
+              (fold-right cons tail list1)) ; Append LIST1 & TAIL.
+            list1))
+      '()))
+
 
 (define-syntax string-ec
   (syntax-rules ()