aboutsummaryrefslogtreecommitdiff
path: root/dump
diff options
context:
space:
mode:
authorArun Isaac2021-12-23 16:21:19 +0530
committerArun Isaac2021-12-23 16:21:19 +0530
commitf42696cc2186b143adc92eb494ecbc14f8d0c203 (patch)
tree40097c65da06353a833beb365005604e93d993fd /dump
parent00003944086861104cac18c7cdfe6b155cf9d033 (diff)
downloadgn-transform-databases-f42696cc2186b143adc92eb494ecbc14f8d0c203.tar.gz
Add dumped? field to <column> type.
* dump/table.scm (<column>): Add dumped? field. Rename constructor to column-constructor. (make-column): Implement as wrapper around column-constructor.
Diffstat (limited to 'dump')
-rw-r--r--dump/table.scm11
1 files changed, 8 insertions, 3 deletions
diff --git a/dump/table.scm b/dump/table.scm
index 8f6a128..834c4fd 100644
--- a/dump/table.scm
+++ b/dump/table.scm
@@ -7,7 +7,8 @@
set-table-columns
make-column
column-name
- column-type))
+ column-type
+ column-dumped?))
(define-immutable-record-type <table>
(make-table name size columns)
@@ -17,7 +18,11 @@
(columns table-columns set-table-columns))
(define-immutable-record-type <column>
- (make-column name type)
+ (column-constructor name type dumped?)
column?
(name column-name)
- (type column-type))
+ (type column-type)
+ (dumped? column-dumped?))
+
+(define* (make-column name type #:optional dumped?)
+ (column-constructor name type dumped?))