From e4944b4f2ebf617d629184257ef81e9c3f212e6c Mon Sep 17 00:00:00 2001
From: Ginger Bill <bill@gingerbill.org>
Date: Sat, 17 Jun 2017 20:03:52 +0100
Subject: [PATCH] Fix error reporting for foreign blocks

---
 src/parser.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/parser.cpp b/src/parser.cpp
index 44f46150e..e48c8ce78 100644
--- a/src/parser.cpp
+++ b/src/parser.cpp
@@ -553,6 +553,8 @@ Token ast_node_token(AstNode *node) {
 	case AstNode_ImportSpec:         return node->ImportSpec.import_name;
 	case AstNode_TypeSpec:           return ast_node_token(node->TypeSpec.name);
 
+	case AstNode_ForeignBlockDecl:   return node->ForeignBlockDecl.token;
+
 
 	case AstNode_Field:
 		if (node->Field.names.count > 0) {
@@ -2822,7 +2824,7 @@ void parse_foreign_block_decl(AstFile *f, Array<AstNode *> *decls) {
 
 		/* fallthrough */
 	default:
-		error_node(decl, "Only procedures declarations are allowed within a foreign block at the moment");
+		error_node(decl, "Foreign blocks only allow procedure and variable declarations");
 		return;
 	}
 }