Bump version to 0.2.3

pandoc.release-info

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

pandoc/internal/subprocess.sld

@@ -7,7 +7,8 @@
      (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,18 +1,15 @@
-(define (join-adjacent type? type-append list)
+(define (join-adjacent-strings list)
   (let loop ((new-list '()) (list list))
     (if (null? list) (reverse new-list)
         (loop (if (and (not (null? new-list))
-                       (type? (car new-list))
-                       (type? (car list)))
-                  (cons (type-append (car new-list)
-                                     (car list))
+                       (string? (car new-list))
+                       (string? (car list)))
+                  (cons (string-append (car new-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,4 +95,7 @@
     (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)))