~ chicken-core (chicken-5) 100f322ab29306907f2af8892b22558ba8b32654

commit 100f322ab29306907f2af8892b22558ba8b32654
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:55:51 2015 +1200

    Fix misspelled "if" forms in argument check procedures

diff --git a/library.scm b/library.scm
index fb85c860..dd2a3638 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) ) )