From ee64644e9912a70ab86f5680fb4b96847ddd0bdc Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 6 Mar 2021 02:15:16 +0530
Subject: Add source field to type.
* ccwl/ccwl.scm (): Add source field.
(input): Initialize source field to #f in constructor.
---
ccwl/ccwl.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 468d021..26ea69c 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -21,6 +21,7 @@
(type input-type)
(label input-label)
(default input-default)
+ (source input-source set-input-source)
(other input-other))
(define-immutable-record-type
@@ -29,7 +30,10 @@
(define* (input id #:key type label (default (make-unspecified-default)) (other '()))
"Build and return an object."
- (make-input id type label default other))
+ ;; The user should not set source. Hence, do not expose it as a
+ ;; parameter of this constructor.
+ (let ((source #f))
+ (make-input id type label default source other)))
(define-immutable-record-type