1 files changed, 14 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 1076bb2c..440b258e 100644
--- a/lib.c
+++ b/lib.c
@@ -677,6 +677,20 @@ val getplist(val list, val key)
   return nil;
 }
 
+val getplist_f(val list, val key, val *found)
+{
+  for (; list; list = cdr(cdr(list))) {
+    val ind = first(list);
+    if (eq(ind, key)) {
+      *found = t;
+      return second(list);
+    }
+  }
+
+  *found = nil;
+  return nil;
+}
+
 val proper_plist_to_alist(val list)
 {
   list_collect_decl (out, tail);