Fixes bug 162834: Typo in error message.

This commit is contained in:
Abdulaziz Ghuloum 2007-11-15 05:51:24 -05:00
parent d18a041840
commit 745c3be26e
1 changed files with 2 additions and 3 deletions

View File

@ -155,8 +155,7 @@
(define (find-external-library name)
(when (member name (external-pending-libraries))
(error #f "circular attempt to import library was detected"
name))
(error #f "circular attempt to import library was detected" name))
(parameterize ((external-pending-libraries
(cons name (external-pending-libraries))))
(let ((lib-expr ((library-locator) name)))
@ -166,7 +165,7 @@
(or (find-library-by
(lambda (x) (equal? (library-name x) name)))
(error #f
"handling external library did not yield the currect library"
"handling external library did not yield the correct library"
name)))))
(define (find-library-by-name name)