diff options
Diffstat (limited to 'util')
-rw-r--r-- | util/alist.scm | 4 | ||||
-rw-r--r-- | util/table.scm | 5 |
2 files changed, 9 insertions, 0 deletions
diff --git a/util/alist.scm b/util/alist.scm index 4e19440..6bc0bda 100644 --- a/util/alist.scm +++ b/util/alist.scm | |||
@@ -1,3 +1,7 @@ | |||
1 | (define-module (util/alist) | ||
2 | #: export (lookup-assoc-list | ||
3 | is-elem-assoc-list)) | ||
4 | |||
1 | (define (is-elem-assoc-list key assoc-list) | 5 | (define (is-elem-assoc-list key assoc-list) |
2 | (cond | 6 | (cond |
3 | [(null? assoc-list) #f] | 7 | [(null? assoc-list) #f] |
diff --git a/util/table.scm b/util/table.scm index 7cc68e8..efb9613 100644 --- a/util/table.scm +++ b/util/table.scm | |||
@@ -1,3 +1,8 @@ | |||
1 | (define-module (util/table) | ||
2 | #: export (make-table | ||
3 | lookup | ||
4 | table-insert!)) | ||
5 | |||
1 | (define (make-table) | 6 | (define (make-table) |
2 | (list '*table*)) | 7 | (list '*table*)) |
3 | 8 | ||