Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +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)) (cons (apply proc (map1 car lol '())) res))
(if (every (lambda (x) (if (null? x) #t (pair? x))) lol) (if (every (lambda (x) (if (null? x) #t (pair? x))) lol)
(reverse res) (reverse res)
(error "map: improper list" ls)))) (error "map: improper list in list" lol))))
(if (null? lol) (if (null? lol)
(map1 proc ls '()) (map1 proc ls '())
(mapn proc (cons ls lol) '()))) (mapn proc (cons ls lol) '())))