Добавлены тесты экспорта

[dsw-obn.git] / src / oberon-common.c

diff --git a/src/oberon-common.c b/src/oberon-common.c
index f1b67112f251d8a0e368aa52d1e78ed16d3c90ef..01f2c9e5aab0ab553f2c527349c5731d4802daa4 100644 (file)
--- a/src/oberon-common.c
+++ b/src/oberon-common.c
@@ -11,12 +11,12 @@ oberon_error(oberon_context_t * ctx, const char * fmt, ...)
 {
         va_list ptr;
         va_start(ptr, fmt);
-        fprintf(stderr, "error: ");
-        vfprintf(stderr, fmt, ptr);
-        fprintf(stderr, "\n");
-        fprintf(stderr, "  code_index = %i\n", ctx -> code_index);
-        fprintf(stderr, "  c          = %c\n", ctx -> c);
-        fprintf(stderr, "  token      = %i\n", ctx -> token);
+        printf("error: ");
+        vprintf(fmt, ptr);
+        printf("\n");
+        printf("  code_index = %i\n", ctx -> code_index);
+        printf("  c          = %c\n", ctx -> c);
+        printf("  token      = %i\n", ctx -> token);
         va_end(ptr);
         exit(1);
 }