about summary refs log tree commit diff
path: root/dump
diff options
context:
space:
mode:
authorArun Isaac2021-12-20 16:24:54 +0530
committerArun Isaac2021-12-20 16:24:54 +0530
commitf6109d54a74de1094f5334c63d44f7c90ff501b4 (patch)
treebd2b108c7326de36e06f24ec3bd1e6ec09b451e1 /dump
parent4149f907ead360d417236768c9c0fdb2692babeb (diff)
downloadgn-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.scm6
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))