From c4081393c1ca0b1c259cdba572b32c266bc53c5c Mon Sep 17 00:00:00 2001
From: Ginger Bill <bill@gingerbill.org>
Date: Sun, 25 Jun 2017 17:36:10 +0100
Subject: Fix typo for some built-in procedures

---
 src/types.cpp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/types.cpp')

diff --git a/src/types.cpp b/src/types.cpp
index ce0a57dc9..54224373d 100644
--- a/src/types.cpp
+++ b/src/types.cpp
@@ -821,6 +821,10 @@ bool is_type_proc(Type *t) {
 	t = base_type(t);
 	return t->kind == Type_Proc;
 }
+bool is_type_gen_proc(Type *t) {
+	t = base_type(t);
+	return t->kind == Type_Proc && t->Proc.is_generic;
+}
 Type *base_vector_type(Type *t) {
 	if (is_type_vector(t)) {
 		t = base_type(t);
-- 
cgit v1.2.3