conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/psyntax.library-manager.ss
View File

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