summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-03-06 02:15:16 +0530
committerArun Isaac2021-03-06 02:15:16 +0530
commitee64644e9912a70ab86f5680fb4b96847ddd0bdc (patch)
tree52416aae77f34d84ef47eb8e38d7ccb443458fcd
parent259f1ba6d042555bbd106d40de6b3c518897bbe7 (diff)
downloadccwl-ee64644e9912a70ab86f5680fb4b96847ddd0bdc.tar.gz
ccwl-ee64644e9912a70ab86f5680fb4b96847ddd0bdc.tar.lz
ccwl-ee64644e9912a70ab86f5680fb4b96847ddd0bdc.zip
Add source field to <input> type.
* ccwl/ccwl.scm (<input>): Add source field. (input): Initialize source field to #f in constructor.
-rw-r--r--ccwl/ccwl.scm6
1 files changed, 5 insertions, 1 deletions
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 <unspecified-default>
@@ -29,7 +30,10 @@
(define* (input id #:key type label (default (make-unspecified-default)) (other '()))
"Build and return an <input> 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 <output>
(make-output id type binding source other)