From 5145dd3aa0c02c9fc496d1432fc4410674206e1d Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:31 -0800 Subject: Import Upstream version 3a2 --- cvs.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'cvs.scm') diff --git a/cvs.scm b/cvs.scm index f1c853c..956178c 100644 --- a/cvs.scm +++ b/cvs.scm @@ -106,7 +106,7 @@ (else (slib:error 'mismatched root repos))))))) ;;@body -;;Writes @1 to file CVS/Root of @2 and all its subdirectories. +;;Writes @1 to file CVS/Root of @2. (define (cvs-set-root! new-root directory/) (define root (cvs-root directory/)) (define repos (cvs-repository directory/)) @@ -123,6 +123,12 @@ (substring repos (+ 1 (string-length root)) (string-length repos)) port)))) +;;@body +;;Writes @1 to file CVS/Root of @2 and all its CVS subdirectories. +(define (cvs-set-roots! new-root directory/) + (for-each (lambda (dir/) (cvs-set-root! new-root dir/)) + (cvs-directories directory/))) + ;;@body ;;Signals an error if CVS/Repository or CVS/Root files in @1 or any ;;subdirectory do not match. -- cgit v1.2.3