From 13e32ed4f2065e40b6ee759fe97abb523fd7354a Mon Sep 17 00:00:00 2001
From: TudbuT <forge-public@mail.tudbut.de>
Date: Fri, 15 Nov 2024 19:13:41 +0100
Subject: [PATCH] add array contains

---
 spl/std.spl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/spl/std.spl b/spl/std.spl
index 442ca2f..9b1befe 100644
--- a/spl/std.spl
+++ b/spl/std.spl
@@ -218,6 +218,9 @@ construct _array-ext {
         }
         null
     }
+    contains { bool | with search this ;
+        search awrap this:find null eq not
+    }
     starts-with { bool | with beginning this ;
         this:len beginning:len lt if {
             0