lassik
/
floyd-library
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix error in list-error library

This commit is contained in:
Lassi Kortela 2022-12-08 09:52:01 +02:00
parent 3b654e106e
commit 94bf3cb9f3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/list-error.sld
View File

@ -32,4 +32,6 @@
(define (dotted-list-error? obj)
(and (list-error? obj)
(not (null-or-pair? (list-error-tail obj)))))))
(let ((tail (list-error-tail obj)))
(not (or (null? tail)
(pair? tail))))))))