From 5bea21e81ed516440e34e480f2c33ca41aa8c597 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:36 -0800
Subject: Import Upstream version 3a4

---
 pnm.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pnm.scm')

diff --git a/pnm.scm b/pnm.scm
index 2bfa4ae..de24837 100644
--- a/pnm.scm
+++ b/pnm.scm
@@ -333,4 +333,5 @@
 	  (else (slib:error 'pnm:array-write type 'unrecognized 'type))))
       (call-with-open-ports
        (open-file port 'wb)
-       (lambda (port) (pnm:array-write type array maxval port)))))
+       (lambda (port)
+	 (apply pnm:array-write type array maxval port comments)))))
-- 
cgit v1.2.3