~ chicken-r7rs (master) ca37388abccad1b1e14a4aa7dfe616286f74adc3

commit ca37388abccad1b1e14a4aa7dfe616286f74adc3
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Wed May 29 05:25:41 2013 +0000
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Wed May 29 05:25:41 2013 +0000

    Fix arity in call to old ##sys#user-read-hook

diff --git a/r7rs.scm b/r7rs.scm
index 687628b..d974271 100644
--- a/r7rs.scm
+++ b/r7rs.scm
@@ -21,6 +21,6 @@
             ((#\t #\T)
              (read-asserted-ci-symbol port '(t true) "invalid `true' read syntax")
              #t)
-            (else (old-hook))))))
+            (else (old-hook char port))))))
 
 )