~ chicken-core (chicken-5) e86234cd8ad7dd8253b166e552b8f2cf406c4c0f

commit e86234cd8ad7dd8253b166e552b8f2cf406c4c0f
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Apr 24 18:55:14 2015 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Fri Apr 24 18:58:49 2015 +1200

    Fix misspelled "if" forms in argument check procedures

diff --git a/library.scm b/library.scm
index fae96a8f..5b3dedf3 100644
--- a/library.scm
+++ b/library.scm
@@ -299,12 +299,12 @@ EOF
       (##core#inline "C_i_check_char" x) ) )
 
 (define (##sys#check-boolean x . loc)
-  (If (pair? loc)
+  (if (pair? loc)
       (##core#inline "C_i_check_boolean_2" x (car loc))
       (##core#inline "C_i_check_boolean" x) ) )
 
 (define (##sys#check-locative x . loc)
-  (If (pair? loc)
+  (if (pair? loc)
       (##core#inline "C_i_check_locative_2" x (car loc))
       (##core#inline "C_i_check_locative" x) ) )