diff options
Diffstat (limited to 'pnm/write.scm')
| -rw-r--r-- | pnm/write.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pnm/write.scm b/pnm/write.scm index b41a0d9..75cd433 100644 --- a/pnm/write.scm +++ b/pnm/write.scm @@ -30,6 +30,8 @@ (write-string-u8 "P6\n")) ((pgm) (write-string-u8 "P5\n")) + ((pbm) + (write-string-u8 "P4\n")) (else (error "(pnm write) pnm-write: Not supported type" (image-type image)))) (write-string-u8 (number->string (image-width image))) |