diff options
| author | Arun Isaac | 2023-09-29 18:38:18 +0100 |
|---|---|---|
| committer | Arun Isaac | 2023-09-29 18:38:18 +0100 |
| commit | 3e8dac4240eb1f3abe46ce0efac83a97283b8fcc (patch) | |
| tree | 12e62551d71f2582dfae6617c3011a9de4312a64 | |
| parent | 900ecf10e030393653592b4200d2582b15158454 (diff) | |
| download | ccwl-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.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)) |