X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon.c;h=82566471b9a11b929d832f2d51ef355aa4d23dfc;hp=cd7e97a18f3cb5531e77bd28d1253a62cdc92b85;hb=dd188cb697c08d52aefb144a4f3a943dbf3388c5;hpb=b32ba7cd2d9c7ddd96e5504bd7bc7552228167e3

diff --git a/src/oberon.c b/src/oberon.c
index cd7e97a..8256647 100644
--- a/src/oberon.c
+++ b/src/oberon.c
@@ -305,6 +305,21 @@ oberon_find_object(oberon_scope_t * scope, char * name, bool check_it)
 	return result;
 }
 
+static oberon_object_t *
+oberon_find_object_in_scope(oberon_scope_t * scope, char * name, bool check_it)
+{
+	oberon_object_t * result = NULL;
+
+	result = oberon_find_object_in_list(scope -> list, name);
+
+	if(check_it && result == NULL)
+	{
+		oberon_error(scope -> ctx, "undefined ident %s", name);
+	}
+
+	return result;
+}
+
 static oberon_object_t *
 oberon_create_object(oberon_scope_t * scope, char * name, int class, bool export, bool read_only)
 {
@@ -2469,7 +2484,7 @@ oberon_proc_decl(oberon_context_t * ctx)
 	oberon_close_scope(ctx -> decl);
 
 	oberon_object_t * proc;
-	proc = oberon_find_object(ctx -> decl, name, 0);
+	proc = oberon_find_object_in_scope(ctx -> decl, name, 0);
 	if(proc == NULL)
 	{
 		proc = oberon_define_object(ctx -> decl, name, OBERON_CLASS_PROC, export, read_only, false);