Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix mapn error message

Browse source
This commit is contained in:
Alex Shinn 2021-12-28 15:19:10 +09:00
parent 92499731bc
commit 9cd9ec1cda
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/init-7.scm
View file

@ -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) '())))