aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-09-29 18:38:18 +0100
committerArun Isaac2023-09-29 18:38:18 +0100
commit3e8dac4240eb1f3abe46ce0efac83a97283b8fcc (patch)
tree12e62551d71f2582dfae6617c3011a9de4312a64
parent900ecf10e030393653592b4200d2582b15158454 (diff)
downloadccwl-3e8dac4240eb1f3abe46ce0efac83a97283b8fcc.tar.gz
ccwl-3e8dac4240eb1f3abe46ce0efac83a97283b8fcc.tar.lz
ccwl-3e8dac4240eb1f3abe46ce0efac83a97283b8fcc.zip
ccwl: Comment on allowing default parameter values.
* ccwl/ccwl.scm (collect-steps): Comment on allowing default parameter values. Remove TODO note.
-rw-r--r--ccwl/ccwl.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 174b040..00d503f 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -476,10 +476,10 @@ represented by <step> objects."
(formatted-message "Undefined ccwl command ~a"
(syntax->datum #'function)))))
;; Test for missing required parameters.
- ;; TODO: Filter out optional parameters.
(match (lset-difference
eq?
(filter-map (lambda (input)
+ ;; Leave out inputs that have default values.
(and (unspecified-default? (input-default input))
(input-id input)))
(function-inputs function-object))