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.scm | |
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.scm')
-rwxr-xr-x | dump.scm | 15 |
1 files changed, 1 insertions, 14 deletions
@@ -5,13 +5,13 @@ (use-modules (rnrs io ports) (srfi srfi-1) - (srfi srfi-9 gnu) (srfi srfi-26) (ice-9 match) (ice-9 string-fun) (sxml simple) (dump sql) (dump string-similarity) + (dump table) (dump utils)) @@ -503,19 +503,6 @@ ALIST field-name) forms." ;;; Visualize schema -(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?)) - (define (tables db) "Return list of all tables in DB. Each element of the returned list is a <table> object." |