diff options
author | Arun Isaac | 2021-03-17 17:01:39 +0530 |
---|---|---|
committer | Arun Isaac | 2021-03-17 17:01:39 +0530 |
commit | eab6e3381363671d0c4abde04a9dc5e70115b37c (patch) | |
tree | 0dc8d027a47fcdc0fcdbb99c3de512fb5ebdaecb | |
parent | ed11f7058c087eec189bc34619fa0b271b1e1440 (diff) | |
download | ccwl-eab6e3381363671d0c4abde04a9dc5e70115b37c.tar.gz ccwl-eab6e3381363671d0c4abde04a9dc5e70115b37c.tar.lz ccwl-eab6e3381363671d0c4abde04a9dc5e70115b37c.zip |
Set default type of inputs to File.
* ccwl/ccwl.scm (input): Set default type to File.
-rw-r--r-- | ccwl/ccwl.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 120edcd..6d02ec3 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -32,7 +32,7 @@ (make-unspecified-default) unspecified-default?) -(define* (input id #:key type label (default (make-unspecified-default)) (other '())) +(define* (input id #:key (type 'File) label (default (make-unspecified-default)) (other '())) "Build and return an <input> object." ;; The user should not set source. Hence, do not expose it as a ;; parameter of this constructor. |