summaryrefslogtreecommitdiff
path: root/util
diff options
context:
space:
mode:
authorAkshay <[email protected]>2020-11-05 06:25:47 +0000
committerAkshay <[email protected]>2020-11-05 06:25:47 +0000
commit852e49c856dbc83458efdca3b0fae27d8ed10730 (patch)
tree0cea7a20f4c335406fe4d65579d4485548a1688e /util
parent699024646cc934c5af33c604a3586a0d3d414424 (diff)
rework modules
Diffstat (limited to 'util')
-rw-r--r--util/alist.scm4
-rw-r--r--util/table.scm5
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