diff options
| -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 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)) |