From mboxrd@z Thu Jan 1 00:00:00 1970 From: Kyle Meyer Subject: [PATCH] Touch up a few docstrings. Date: Wed, 12 Jun 2019 21:32:27 -0400 Message-Id: <20190613013227.1693618-1-kyle@kyleam.com> MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable To: gwl-devel@gnu.org Cc: Kyle Meyer List-ID: * gwl/processes.scm (processes-filter): * gwl/workflows.scm (auto-connect): Fix typo. (print-workflow): Rephrase repetitive wording to be consistent with style of surrounding docstrings. (workflow-run-order): Convert parameter to upper case. --- gwl/processes.scm | 2 +- gwl/workflows.scm | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gwl/processes.scm b/gwl/processes.scm index c0b594e..735b5e3 100644 --- a/gwl/processes.scm +++ b/gwl/processes.scm @@ -535,7 +535,7 @@ (define (process-threads process) (define (processes-filter processes filter) "Returns a list of PROCESSES after applying FILTER. FILTER is a function that takes a process and returns the process to include it -of #f to exclude it." +or #f to exclude it." (filter-map filter processes)) =20 (define (processes-filter-by-name processes name) diff --git a/gwl/workflows.scm b/gwl/workflows.scm index 50dc2ee..574d23c 100644 --- a/gwl/workflows.scm +++ b/gwl/workflows.scm @@ -150,7 +150,7 @@ (define-syntax graph =20 (define (auto-connect . processes) "Return an association list mapping processes to processes they -depend on. This is accomplished by matching a the inputs of a process +depend on. This is accomplished by matching the inputs of a process with the outputs of other processes." (let ((process-by-output (append-map (lambda (process) @@ -181,7 +181,7 @@ (define (workflow-full-name workflow) (workflow-name workflow))) =20 (define (print-workflow workflow port) - "Write a decent human-representation of a workflow of WORKFLOW to PORT= ." + "Write a decent human-representation of WORKFLOW to PORT." (simple-format port "#" (workflow-full-name workflow))) =20 (define* (print-workflow-record workflow #:optional (port #t)) @@ -208,7 +208,7 @@ (define-method (write (workflow ) port) =20 (define* (workflow-run-order workflow #:key (parallel? #t)) "Returns a list of processes in WORKFLOW in the order in which the -processes can be executed. When parallel? is set to #T, the list +processes can be executed. When PARALLEL? is set to #T, the list contains lists of processes that can be executed in parallel." (let ((order-function (if parallel? parallel-step-execution-order --=20 2.22.0