diff options
| -rw-r--r-- | gnu/ci.scm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/gnu/ci.scm b/gnu/ci.scm index 9e4f0a8c82..58423b6911 100644 --- a/gnu/ci.scm +++ b/gnu/ci.scm @@ -72,6 +72,8 @@ %core-packages %cross-targets channel-source->package + + arguments->systems cuirass-jobs)) ;;; Commentary: @@ -443,6 +445,13 @@ valid." load-manifest) manifests)))) +(define (arguments->systems arguments) + "Return the systems list from ARGUMENTS." + (match (assoc-ref arguments 'systems) + (#f %cuirass-supported-systems) + ((lst ...) lst) + ((? string? str) (call-with-input-string str read)))) + ;;; ;;; Cuirass entry point. @@ -454,10 +463,7 @@ valid." (assoc-ref arguments 'subset)) (define systems - (match (assoc-ref arguments 'systems) - (#f %cuirass-supported-systems) - ((lst ...) lst) - ((? string? str) (call-with-input-string str read)))) + (arguments->systems arguments)) (define channels (let ((channels (assq-ref arguments 'channels))) |