Fix error reporting for foreign blocks

1 files changed, 3 insertions, 1 deletions

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;
 	}
 }