From 62c69b2297be8723bfb0a2c4bea8e9ced38583e5 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 4 Aug 2024 15:24:24 +0900 Subject: Support (srfi 151) in cond-expand to improve portability in pbm.scm --- pnm/pbm.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'pnm/pbm.scm') diff --git a/pnm/pbm.scm b/pnm/pbm.scm index d711b82..32506e0 100644 --- a/pnm/pbm.scm +++ b/pnm/pbm.scm @@ -25,7 +25,9 @@ ((library (scheme bitwise)) (import (only (scheme bitwise) bit-set? copy-bit))) ((library (srfi 60)) - (import (only (srfi 60) bit-set? copy-bit)))) + (import (only (srfi 60) bit-set? copy-bit))) + ((library (srfi 151)) + (import (only (srfi 151) bit-set? copy-bit)))) (begin (define make-pbm-image (case-lambda -- cgit v1.2.3