From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Mar 1994 20:59:07 +0000 (+0000)
Subject: Fix random bugs in VC-VERSION-OTHER-WINDOW.
X-Git-Tag: 20090517-FFI~7249
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a7898d28161226d4388948966cd4550563a81e46;p=mit-scheme.git

Fix random bugs in VC-VERSION-OTHER-WINDOW.
---

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index c5d7bd87b..9cdf95a05 100644
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: vc.scm,v 1.1 1994/03/08 20:31:51 cph Exp $
+;;;	$Id: vc.scm,v 1.2 1994/03/08 20:59:07 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994 Massachusetts Institute of Technology
 ;;;
@@ -823,7 +823,7 @@ the value of vc-log-mode-hook."
 ;;;; RCS Commands
 
 (define vc-type:rcs
-  (make-vc-type 'RCS "$Id: vc.scm,v 1.1 1994/03/08 20:31:51 cph Exp $"))
+  (make-vc-type 'RCS "$Id: vc.scm,v 1.2 1994/03/08 20:59:07 cph Exp $"))
 
 (define-vc-master-template vc-type:rcs
   (lambda (pathname)
@@ -914,15 +914,15 @@ the value of vc-log-mode-hook."
 	    ;; but the working file.
 	    (begin
 	      (delete-file-no-errors workfile)
-	      (vc-run-command master 0 "/bin/sh"
+	      (vc-run-command master 0 "/bin/sh" "-c"
 			      (reduce string-append-separated
 				      ""
 				      (vc-command-arguments
-				       "co"
-				       (rcs-rev-switch "-p" revision)
-				       (vc-workfile-pathname master)))
-			      ">"
-			      (vc-workfile-pathname workfile))
+				       (list "co"
+					     (rcs-rev-switch "-p" revision)
+					     (vc-workfile-pathname master)
+					     ">"
+					     workfile))))
 	      (set-file-modes! workfile (if lock? #o644 #o444)))
 	    (vc-run-command master 0 "co"
 			    (rcs-rev-switch (if lock? "-l" "-r") revision)