From f42696cc2186b143adc92eb494ecbc14f8d0c203 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 23 Dec 2021 16:21:19 +0530
Subject: 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.
---
 dump/table.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'dump')

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?))
-- 
cgit v1.2.3