diff options
| author | Arun Isaac | 2021-10-18 00:38:32 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-10-18 00:38:32 +0530 |
| commit | a7280ab79735b5838d14aa65f42aae0838161258 (patch) | |
| tree | 325e5326b9129628681e7c039543dbd03fed32f1 | |
| parent | 83f4156efe0b01991bb09570b8bb90fccf8a9a51 (diff) | |
| download | ccwl-a7280ab79735b5838d14aa65f42aae0838161258.tar.gz ccwl-a7280ab79735b5838d14aa65f42aae0838161258.tar.lz ccwl-a7280ab79735b5838d14aa65f42aae0838161258.zip | |
ccwl: Fix indentation and paragraph filling.
* ccwl/ccwl.scm (collect-steps): Fix indentation.
(key->output): Fill paragraph.
| -rw-r--r-- | ccwl/ccwl.scm | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 9b0c049..626a80e 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -288,11 +288,11 @@ represented by <step> objects." (command-object #'command))) 1)) (collect-steps #`(command (step-id) - #,(match (command-input-keys - (command-object #'command)) - ((command-key) (symbol->keyword command-key))) - #,(match input-keys - ((input-key) (key-name input-key)))) + #,(match (command-input-keys + (command-object #'command)) + ((command-key) (symbol->keyword command-key))) + #,(match input-keys + ((input-key) (key-name input-key)))) input-keys)) ((command (step-id) args ...) ;; Run a whole bunch of tests so that we can produce useful error @@ -355,7 +355,7 @@ represented by <step> objects." ;; commands with an implicit step identifier ((command args ...) (collect-steps #'(command (command) args ...) - input-keys)) + input-keys)) ;; any other unrecognized syntax (x (error "Unrecognized syntax:" (syntax->datum #'x))))) @@ -384,9 +384,8 @@ return #f." ;; TODO: Implement escape hatch #:other in workflow syntax. (make-workflow steps input-objects - ;; Find the output object for each - ;; output key. Filter out global - ;; workflow inputs. + ;; Find the output object for each output + ;; key. Filter out global workflow inputs. (filter-map (cut key->output <> steps) output-keys) '()))) |