blob: 1a9abc6c8c2ac1255a1436aac69c9326d05c927b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(define-module (dump table)
#:use-module (srfi srfi-9 gnu)
#:export (make-table
table-name
table-size
table-columns
set-table-columns
make-column
column-name
column-int?))
(define-immutable-record-type <table>
(make-table name size columns)
table?
(name table-name)
(size table-size)
(columns table-columns set-table-columns))
(define-immutable-record-type <column>
(make-column name int?)
column?
(name column-name)
(int? column-int?))
|
