diff options
Diffstat (limited to 'dump')
-rw-r--r-- | dump/table.scm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/dump/table.scm b/dump/table.scm new file mode 100644 index 0000000..1a9abc6 --- /dev/null +++ b/dump/table.scm @@ -0,0 +1,23 @@ +(define-module (dump table) + #:use-module (srfi srfi-9 gnu) + #:export (make-table + table-name + table-size + table-columns + set-table-columns + make-column + column-name + column-int?)) + +(define-immutable-record-type <table> + (make-table name size columns) + table? + (name table-name) + (size table-size) + (columns table-columns set-table-columns)) + +(define-immutable-record-type <column> + (make-column name int?) + column? + (name column-name) + (int? column-int?)) |