From 9cd9ec1cda0f6f4c5972b0a2191faa3dbc5a295a Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Tue, 28 Dec 2021 15:19:10 +0900
Subject: [PATCH] fix mapn error message

---
 lib/init-7.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/init-7.scm b/lib/init-7.scm
index d6507367..8a3ea91f 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -70,7 +70,7 @@
               (cons (apply proc (map1 car lol '())) res))
         (if (every (lambda (x) (if (null? x) #t (pair? x))) lol)
             (reverse res)
-            (error "map: improper list" ls))))
+            (error "map: improper list in list" lol))))
   (if (null? lol)
       (map1 proc ls '())
       (mapn proc (cons ls lol) '())))