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

diff --git a/src/devops/build.texi b/src/devops/build.texi
index 228fc867b1fb4ea397b6508f6f0305e352dbcaa5..7aaf6e11eb04f0f013819fde02ac483ebf774be9 100644 (file)
--- 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 6d4a304c277d3d53d1294950b1749f0782761540..bb4f647f1a9b1207293df0e5d687167ff06a6929 100644 (file)
--- 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.
 \f
 ;;;; Build Status
 
-(define (devops:build-status #!optional hostname)
+(define (devops:build #!optional hostname)
   (let ((srcs (available-sources "devops"))
        (hosts (hosts)))
     (if (null? hosts)