~ chicken-core (chicken-5) 523cf4dbdeec6b6536575a39090669a6c425ea39

commit 523cf4dbdeec6b6536575a39090669a6c425ea39
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Aug 30 21:22:12 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Aug 30 21:22:12 2011 +0200

    WHOOSH

diff --git a/scrutinizer.scm b/scrutinizer.scm
index eabd2b4d..cdc54cbc 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -48,8 +48,12 @@
 
 (define dd d)
 
-;(define-syntax d (syntax-rules () ((_ . _) (void))))
-;(define-syntax dd (syntax-rules () ((_ . _) (void))))
+(cond-expand				;XXX remove cond-expand later
+  ((not debugbuild)
+   (begin
+     (define-syntax d (syntax-rules () ((_ . _) (void))))
+     (define-syntax dd (syntax-rules () ((_ . _) (void))))))
+  (else))
 
 
 ;;; Walk node tree, keeping type and binding information
diff --git a/types.db b/types.db
index 2459520e..91b46ea2 100644
--- a/types.db
+++ b/types.db
@@ -1442,7 +1442,7 @@
 (call-with-input-string (#(procedure #:enforce) call-with-input-string (string (procedure (port) . *)) . *))
 (call-with-output-string (#(procedure #:enforce) call-with-output-string ((procedure (port) . *)) string))
 (copy-port (#(procedure #:enforce) copy-port (* * #!optional (procedure (*) *) (procedure (* port) *)) undefined)) 
-(make-input-port (#(procedure #:clean #:enforce) make-input-port ((procedure () char) (procedure () *) (procedure () . *) #!optional * * * *) port))
+(make-input-port (#(procedure #:clean #:enforce) make-input-port ((procedure () (or char eof)) (procedure () *) (procedure () . *) #!optional * * * *) port))
 (make-output-port (#(procedure #:clean #:enforce) make-output-port ((procedure (string) . *) (procedure () . *) #!optional (procedure () . *)) port))
 (port-for-each (#(procedure #:enforce) port-for-each ((procedure (*) *) (procedure () . *)) undefined))