~ chicken-core (chicken-5) cfa6d990b28071cf28f6b1181b8b42e83652a42c

commit cfa6d990b28071cf28f6b1181b8b42e83652a42c
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Mon Sep 15 17:20:38 2014 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Mon Sep 15 17:25:03 2014 +1200

    Fix incorrect error locations in with-[error-]output-to-port argument checks

diff --git a/ports.scm b/ports.scm
index f255160b..47c2dea1 100644
--- a/ports.scm
+++ b/ports.scm
@@ -169,12 +169,12 @@
     (thunk) ) )
 
 (define (with-output-to-port port thunk)
-  (##sys#check-output-port port #t 'with-output-from-port)
+  (##sys#check-output-port port #t 'with-output-to-port)
   (fluid-let ([##sys#standard-output port])
     (thunk) ) )
 
 (define (with-error-output-to-port port thunk)
-  (##sys#check-output-port port #t 'with-error-output-from-port)
+  (##sys#check-output-port port #t 'with-error-output-to-port)
   (fluid-let ([##sys#standard-error port])
     (thunk) ) )