pandoc.release-info

@@ -8,5 +8,3 @@
 (release "0.1")
 (release "0.2")
 (release "0.2.1")
-(release "0.2.2")
-(release "0.2.3")

pandoc/internal/subprocess.sld

@@ -7,8 +7,7 @@
      (begin
        (define (subprocess command-line stdin-bytevector read-stdout)
          (read-stdout (run/port (,(car command-line) ,@(cdr command-line))
-                                (<< ,(utf8->string stdin-bytevector))
+                                (<< ,(utf8->string stdin-bytevector)))))))
-                                (> 2 "/dev/null"))))))
     (gauche
      (import (only (gauche process) call-with-process-io))
      (begin

pandoc/pandoc.r5rs.scm

@@ -1,15 +1,18 @@
-(define (join-adjacent-strings list)
+(define (join-adjacent type? type-append list)
   (let loop ((new-list '()) (list list))
     (if (null? list) (reverse new-list)
         (loop (if (and (not (null? new-list))
-                       (string? (car new-list))
+                       (type? (car new-list))
-                       (string? (car list)))
+                       (type? (car list)))
-                  (cons (string-append (car new-list)
+                  (cons (type-append (car new-list)
-                                       (car list))
+                                     (car list))
                         (cdr new-list))
                   (cons (car list) new-list))
               (cdr list)))))
 
+(define (join-adjacent-strings list)
+  (join-adjacent string? string-append list))
+
 (define (vector-refs vec . indexes)
   (let loop ((obj vec) (indexes indexes))
     (if (null? indexes) obj

pandoc/tar.r7rs.scm

@@ -95,7 +95,4 @@
     (unless (null? inputs)
       (let ((filename (string-append (number->string i) ".md")))
         (tar-write-file filename (car inputs))
-        (loop (+ i 1) (cdr inputs)))))
+        (loop (+ i 1) (cdr inputs))))))
-  (let ((nulls (make-bytevector 512 0)))
-    (write-bytevector nulls)
-    (write-bytevector nulls)))