Add source field to <input> type.

* ccwl/ccwl.scm (<input>): Add source field.
(input): Initialize source field to #f in constructor.

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)