blob: 8f6a128d440cf346a2d8e9c5f947a90eb3b83984 (
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-type))
(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 type)
column?
(name column-name)
(type column-type))
|
