X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=src%2Ftypes%2Flet_vals.h;h=01b1d8445fc32f8d0da75112457d3dc6a17622cd;hp=442ba598544c9087a37140a231e134e0c9b53a0f;hb=a107dfcca2dfd0fc5a2779a8d679f778cb8f3290;hpb=dfc032e7e195fc09c5ad2cda81d00a8958b80a66

diff --git a/src/types/let_vals.h b/src/types/let_vals.h
index 442ba59..01b1d84 100644
--- a/src/types/let_vals.h
+++ b/src/types/let_vals.h
@@ -37,4 +37,18 @@ let_vals *init_let_vals(struct let_val *val);
 let_vals *add_let_val(let_vals *vals, struct let_val *val);
 void free_let_vals(let_vals *vals);
 
+static inline let_val *locate_let_vals_val(let_vals *vals, const char *name) {
+	size_t i;
+
+	for (i = 0; i < vals->count; ++i) {
+		let_val *val = vals->vals[i];
+		const char *var = locate_let_val_varname(val);
+
+		if (!strcmp(var, name)) {
+			return val;
+		}
+	}
+
+	return NULL;
+}
 #endif