ccwl: Allow steps with unspecified default arguments.

* ccwl/ccwl.scm (function-inputs): New function.
(function-input-keys): Use function-inputs.
(collect-steps): Do not error out on steps with unspecified default
arguments.
* tests/ccwl.scm (print-with-default): New variable.
("allow steps with unspecified default arguments"): New test.

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/ccwl.scm b/tests/ccwl.scm
index f55ef0d..9aa00f3 100644
--- a/tests/ccwl.scm
+++ b/tests/ccwl.scm
@@ -128,4 +128,15 @@
                (print (print2) #:message message2)))))
   (list 'out1 'printed-message))
 
+;; TODO: Define this in the lexical scope of the test that requires
+;; it.
+(define print-with-default
+  (command #:inputs (message #:type string #:default "Hello")
+           #:run "echo" message
+           #:outputs (printed-message #:type stdout)))
+
+(test-assert "allow steps with unspecified default arguments"
+  (workflow ()
+    (print-with-default)))
+
 (test-end "ccwl")