diff options
| author | Arun Isaac | 2021-12-20 16:24:54 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-12-20 16:24:54 +0530 |
| commit | f6109d54a74de1094f5334c63d44f7c90ff501b4 (patch) | |
| tree | bd2b108c7326de36e06f24ec3bd1e6ec09b451e1 /dump | |
| parent | 4149f907ead360d417236768c9c0fdb2692babeb (diff) | |
| download | gn-transform-databases-f6109d54a74de1094f5334c63d44f7c90ff501b4.tar.gz | |
Capture full column type.
Capture full column type instead of just whether it is an integer.
* dump.scm (dump-data-table): Capture full column type in <column>
object.
* dump/table.scm (<column>)[int?]: Delete member.
[type]: New member.
Export column-type instead of column-int?.
Diffstat (limited to 'dump')
| -rw-r--r-- | dump/table.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dump/table.scm b/dump/table.scm index 1a9abc6..8f6a128 100644 --- a/dump/table.scm +++ b/dump/table.scm @@ -7,7 +7,7 @@ set-table-columns make-column column-name - column-int?)) + column-type)) (define-immutable-record-type <table> (make-table name size columns) @@ -17,7 +17,7 @@ (columns table-columns set-table-columns)) (define-immutable-record-type <column> - (make-column name int?) + (make-column name type) column? (name column-name) - (int? column-int?)) + (type column-type)) |