Merge remote-tracking branch 'origin/stable-2.0'

[bpt/guile.git] / libguile / deprecation.c

diff --git a/libguile/deprecation.c b/libguile/deprecation.c
index 1622406..1be3aea 100644 (file)
--- a/libguile/deprecation.c
+++ b/libguile/deprecation.c
@@ -34,12 +34,6 @@
 
 #include "libguile/private-options.h"
 
-
-/* Windows defines. */
-#ifdef __MINGW32__
-#define vsnprintf _vsnprintf
-#endif
-
 \f
 
 struct issued_warning {
@@ -89,8 +83,8 @@ scm_c_issue_deprecation_warning (const char *msg)
             fprintf (stderr, "%s\n", msg);
           else
             {
-              scm_puts_unlocked (msg, scm_current_error_port ());
-              scm_newline (scm_current_error_port ());
+              scm_puts_unlocked (msg, scm_current_warning_port ());
+              scm_newline (scm_current_warning_port ());
             }
         }
     }