From 4149f907ead360d417236768c9c0fdb2692babeb Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 20 Dec 2021 15:53:19 +0530
Subject: Move
and types to separate module.
* dump.scm (, ): Move to ...
* dump/table.scm: ... here.
---
dump/table.scm | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
create mode 100644 dump/table.scm
(limited to 'dump')
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
+ (make-table name size columns)
+ table?
+ (name table-name)
+ (size table-size)
+ (columns table-columns set-table-columns))
+
+(define-immutable-record-type
+ (make-column name int?)
+ column?
+ (name column-name)
+ (int? column-int?))
--
cgit v1.2.3