diff options
| author | Arun Isaac | 2024-09-30 02:41:24 +0100 |
|---|---|---|
| committer | Arun Isaac | 2024-10-01 01:12:51 +0100 |
| commit | 2d856080a2bca9f33fa0d9e8fd3413341b8f0fe7 (patch) | |
| tree | 3a2491f8ab866754c004777ce3217df1a0f62c21 | |
| parent | 08226a390ac206e4e8062cd0a30a96289c38dd27 (diff) | |
| download | ravanan-2d856080a2bca9f33fa0d9e8fd3413341b8f0fe7.tar.gz ravanan-2d856080a2bca9f33fa0d9e8fd3413341b8f0fe7.tar.lz ravanan-2d856080a2bca9f33fa0d9e8fd3413341b8f0fe7.zip | |
workflow: Pass a list, not two vectors, to fold.
* ravanan/workflow.scm (inherit-requirements-and-hints): Pass a list,
not two vectors, to fold.
| -rw-r--r-- | ravanan/workflow.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ravanan/workflow.scm b/ravanan/workflow.scm index 015f8d5..938ddf0 100644 --- a/ravanan/workflow.scm +++ b/ravanan/workflow.scm @@ -127,14 +127,14 @@ requirements and hints of the step." (just (fold inherit-requirements (or (assoc-ref workflow "requirements") #()) - (subset-requirements parent-requirements) - (subset-requirements step-requirements)))) + (list (subset-requirements parent-requirements) + (subset-requirements step-requirements))))) (cons "hints" (just (fold inherit-requirements (or (assoc-ref workflow "hints") #()) - (subset-requirements parent-hints) - (subset-requirements step-hints)))))) + (list (subset-requirements parent-hints) + (subset-requirements step-hints))))))) (define (coerce-type val type) "Coerce @var{val} to @var{type}." |