fix errors in srfi1, srfi13 definitions

Author: arvyy

types/srfi.1.scm

@@ -22,7 +22,7 @@
   (signature lambda ((integer? n) (procedure? init-proc)) list?)
   (subsigs (init-proc (lambda ((integer? i)) *)))
   (tags pure)
-  (tags . "Returns an n-element list. Element i of the list, where 0 <= i < n, is produced by (init-proc i). No guarantee is made about the dynamic order in which init-proc is applied to these indices."))
+  (desc . "Returns an n-element list. Element i of the list, where 0 <= i < n, is produced by (init-proc i). No guarantee is made about the dynamic order in which init-proc is applied to these indices."))
  ((name . "list-copy")
   (signature
    case-lambda

types/srfi.13.scm

@@ -6,8 +6,8 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) *)
-   (((or char? char-set? procedure?) (string? s) (integer? start)) *)
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start)) *)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))
@@ -18,8 +18,8 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) *)
-   (((or char? char-set? procedure?) (string? s) (integer? start)) *)
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start)) *)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))
@@ -128,8 +128,8 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) string?)
-   (((or char? char-set? procedure?) (string? s) (integer? start)) string?)
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start)) string?)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))
@@ -140,8 +140,8 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) string?)
-   (((or char? char-set? procedure?) (string? s) (integer? start)) string?)
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start)) string?)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))
@@ -152,8 +152,8 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) string?)
-   (((or char? char-set? procedure?) (string? s) (integer? start)) string?)
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start)) string?)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))
@@ -685,9 +685,9 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) (or integer? #f))
-   (((or char? char-set? procedure?) (string? s) (integer? start))
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start))
     (or integer? #f))
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))
@@ -698,9 +698,9 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) (or integer? #f))
-   (((or char? char-set? procedure?) (string? s) (integer? start))
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start))
     (or integer? #f))
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))
@@ -711,9 +711,9 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) (or integer? #f))
-   (((or char? char-set? procedure?) (string? s) (integer? start))
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start))
     (or integer? #f))
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))
@@ -724,9 +724,9 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) (or integer? #f))
-   (((or char? char-set? procedure?) (string? s) (integer? start))
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start))
     (or integer? #f))
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))
@@ -737,8 +737,8 @@
   (signature
    case-lambda
    ((((or char? char-set? procedure?) c) (string? s)) integer?)
-   (((or char? char-set? procedure?) (string? s) (integer? start)) integer?)
-   (((or char? char-set? procedure?)
+   ((((or char? char-set? procedure?) c) (string? s) (integer? start)) integer?)
+   ((((or char? char-set? procedure?) c)
      (string? s)
      (integer? start)
      (integer? end))