diff options
-rw-r--r-- | environment.scm | 7 | ||||
-rw-r--r-- | util/alist.scm | 4 | ||||
-rw-r--r-- | util/table.scm | 5 |
3 files changed, 15 insertions, 1 deletions
diff --git a/environment.scm b/environment.scm index 2444059..5906a1d 100644 --- a/environment.scm +++ b/environment.scm | |||
@@ -1,4 +1,9 @@ | |||
1 | (include "prelude/primitives.scm") | 1 | (define-module (environment) |
2 | #: export (lookup-variable-value | ||
3 | setup-environment)) | ||
4 | |||
5 | (add-to-load-path ".") | ||
6 | (use-modules (prelude/primitives)) | ||
2 | 7 | ||
3 | ;;; env | 8 | ;;; env |
4 | (define (enclosing-env environ) (cdr environ)) | 9 | (define (enclosing-env environ) (cdr environ)) |
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 | ||