From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Wed, 13 Sep 2017 07:36:32 +0000 (-0700)
Subject: devops: Update documentation.  Rename devops:build-status.
X-Git-Tag: mit-scheme-pucked-9.2.12~66
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bd2fb40871943c1157cd483e7c0ce8120c694d2c;p=mit-scheme.git

devops: Update documentation.  Rename devops:build-status.
---

diff --git a/src/devops/build.texi b/src/devops/build.texi
index 228fc867b..7aaf6e11e 100644
--- a/src/devops/build.texi
+++ b/src/devops/build.texi
@@ -122,19 +122,13 @@ tested.  The developer also needs to know if the core has been changed
 since its last release, which plugins have changed, and what files
 changed.
 
-@deffn Procedure devops:full-status
-Write a status report listing the changed files to be released and
+@deffn Procedure devops:status
+Write a status report listing the commits to be released and
 warning of unclean files, lint, or other possible trouble.  The
 current working directory should be the top of the git repository.
 @end deffn
 
-@deffn Procedure devops:status
-Write a short status report warning of unclean files, lint, or other
-possible trouble.  The current working directory should be the top of
-the git repository.
-@end deffn
-
-With the full status report well considered, the developer will create
+With the status report well considered, the developer will create
 a release tag and build its source distribution.  If a shared server
 is in use, the tag is pushed and the source is uploaded.
 
@@ -162,7 +156,7 @@ the order they were released (by file modification dates).  If a build
 fails no further builds are attempted until the error log is removed.
 Another build status report will spawn a daemon to continue the work.
 
-@deffn Procedure devops:build-status
+@deffn Procedure devops:build
 Polls each build host.  Uploads new releases.  Shows what the build
 daemon is working on and the work that remains to be done.
 @end deffn
diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index 6d4a304c2..bb4f647f1 100644
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -387,7 +387,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
 ;;;; Build Status
 
-(define (devops:build-status #!optional hostname)
+(define (devops:build #!optional hostname)
   (let ((srcs (available-sources "devops"))
 	(hosts (hosts)))
     (if (null? hosts)