X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=oberon.c;h=c3a6f86ce77fc9d57002b7263e394f218b2140ce;hp=4eb240b043479840196b87af05eb0fb037ebba10;hb=7d4370a6cf1df8bacbead0511e4a9a1b6941003e;hpb=734fa8f9223c140a583e7f193df810d48555ac34

diff --git a/oberon.c b/oberon.c
index 4eb240b..c3a6f86 100644
--- a/oberon.c
+++ b/oberon.c
@@ -1540,9 +1540,9 @@ oberon_proc_decl(oberon_context_t * ctx)
 			{
 				oberon_error(ctx, "mult procedure definition");
 			}
-
-			oberon_compare_signatures(ctx, proc -> type, signature);
 		}
+
+		oberon_compare_signatures(ctx, proc -> type, signature);
 	}
 	else
 	{