Add member? and contains?

1 files changed, 6 insertions, 1 deletions

diff --git a/Alpha/Core.scm b/Alpha/Core.scm
index 9aecc0e..6666e7d 100644
--- a/Alpha/Core.scm
+++ b/Alpha/Core.scm
@@ -8,7 +8,7 @@
             true? false? nil nil? some? empty?
             -> ->> fn /. curry comp
             repeat
-            inc dec
+            inc dec member? contains?
             comment get-source* get-source source))
 
 (define (flip f)           (lambda (x y) (f y x)))
@@ -232,3 +232,8 @@
 (define (source p)
   "Print the source of a procedure."
   (pr (get-source p)))
+
+(define member? member)
+
+(define (contains? ls x)
+  (member? x ls))