summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-03-17 17:01:39 +0530
committerArun Isaac2021-03-17 17:01:39 +0530
commiteab6e3381363671d0c4abde04a9dc5e70115b37c (patch)
tree0dc8d027a47fcdc0fcdbb99c3de512fb5ebdaecb
parented11f7058c087eec189bc34619fa0b271b1e1440 (diff)
downloadccwl-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.scm2
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.