X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon-common.c;h=997b7d250bc9d8f8fe5b21af8ac50513f824b7e7;hp=01f2c9e5aab0ab553f2c527349c5731d4802daa4;hb=4e58c0e61815196bcf87405ab9d070631bc72f90;hpb=0f382f6efef254a295e71dc82ddd0f87b95aaddd

diff --git a/src/oberon-common.c b/src/oberon-common.c
index 01f2c9e..997b7d2 100644
--- a/src/oberon-common.c
+++ b/src/oberon-common.c
@@ -2,8 +2,6 @@
 #include <stdlib.h>
 #include <stdarg.h>
 
-#include "../include/oberon.h"
-
 #include "oberon-internals.h"
 
 void
@@ -11,12 +9,9 @@ oberon_error(oberon_context_t * ctx, const char * fmt, ...)
 {
         va_list ptr;
         va_start(ptr, fmt);
-        printf("error: ");
+        printf("%s: (%i:%i) ", ctx -> loc.source, ctx -> loc.line, ctx -> loc.col);
         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);
 }