diff options
| author | Arun Isaac | 2021-03-06 02:15:16 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-03-06 02:15:16 +0530 |
| commit | ee64644e9912a70ab86f5680fb4b96847ddd0bdc (patch) | |
| tree | 52416aae77f34d84ef47eb8e38d7ccb443458fcd | |
| parent | 259f1ba6d042555bbd106d40de6b3c518897bbe7 (diff) | |
| download | ccwl-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.scm | 6 |
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) |