summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--environment.scm7
-rw-r--r--util/alist.scm4
-rw-r--r--util/table.scm5
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