diff options
| -rw-r--r-- | dump/table.scm | 11 |
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?)) |