diff options
author | Akshay <[email protected]> | 2020-11-04 03:23:43 +0000 |
---|---|---|
committer | Akshay <[email protected]> | 2020-11-04 03:23:43 +0000 |
commit | c93d192c32c376705d3b0a740c81156a44e63ecb (patch) | |
tree | 8b25ec67c7c1f857d598d383537283e086017e88 /util/alist.scm | |
parent | 893980d4e5d3e698bed652fbfb021b128a5d6b3c (diff) |
add basic evaluator, environment
Diffstat (limited to 'util/alist.scm')
-rw-r--r-- | util/alist.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/util/alist.scm b/util/alist.scm new file mode 100644 index 0000000..4e19440 --- /dev/null +++ b/util/alist.scm | |||
@@ -0,0 +1,12 @@ | |||
1 | (define (is-elem-assoc-list key assoc-list) | ||
2 | (cond | ||
3 | [(null? assoc-list) #f] | ||
4 | [(eq? key (caar assoc-list)) #t] | ||
5 | [else (lookup-assoc-list key (cdr assoc-list))])) | ||
6 | |||
7 | (define (lookup-assoc-list key assoc-list) | ||
8 | (cond | ||
9 | [(null? assoc-list) #f] | ||
10 | [(eq? key (caar assoc-list)) (cdar assoc-list)] | ||
11 | [else (lookup-assoc-list key (cdr assoc-list))])) | ||
12 | |||