diff options
author | Arun Isaac | 2021-12-20 15:53:19 +0530 |
---|---|---|
committer | Arun Isaac | 2021-12-20 15:53:19 +0530 |
commit | 4149f907ead360d417236768c9c0fdb2692babeb (patch) | |
tree | 99cb04c72144e9718d7d1086b501fedac46a49a6 /dump | |
parent | 22a13221935c37c06ad5ed56f5de64295ae5e886 (diff) | |
download | gn-transform-databases-4149f907ead360d417236768c9c0fdb2692babeb.tar.gz |
Move <table> and <column> types to separate module.
* dump.scm (<table>, <column>): Move to ...
* dump/table.scm: ... here.
Diffstat (limited to 'dump')
-rw-r--r-- | dump/table.scm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/dump/table.scm b/dump/table.scm new file mode 100644 index 0000000..1a9abc6 --- /dev/null +++ b/dump/table.scm @@ -0,0 +1,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?)) |