diff options
| -rw-r--r-- | Alpha/Core.scm | 7 |
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)) |