Fix error in list-error library
This commit is contained in:
parent
3b654e106e
commit
94bf3cb9f3
|
@ -32,4 +32,6 @@
|
||||||
|
|
||||||
(define (dotted-list-error? obj)
|
(define (dotted-list-error? obj)
|
||||||
(and (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))))))))
|
||||||
|
|
Loading…
Reference in New Issue