[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[gwl-devel] [PATCH] Touch up a few docstrings.

From: Kyle Meyer
Subject: [gwl-devel] [PATCH] Touch up a few docstrings.
Date: Wed, 12 Jun 2019 21:32:27 -0400

* 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))
 (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
 (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)))
 (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 ~a>" (workflow-full-name workflow)))
 (define* (print-workflow-record workflow #:optional (port #t))
@@ -208,7 +208,7 @@ (define-method (write (workflow <workflow>) port)
 (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?

reply via email to

[Prev in Thread] Current Thread [Next in Thread]