From 6597a40567722dd0eb62dd0af7febe989270787c Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 30 Nov 2005 04:55:45 +0000
Subject: [PATCH] Load VC on all platforms, not just unix.

---
 v7/src/edwin/edwin.ldr |  12 ++--
 v7/src/edwin/edwin.pkg | 124 ++++++++++++++++++++---------------------
 2 files changed, 68 insertions(+), 68 deletions(-)

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 912ad6a40..1cb27a5f5 100644
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,8 +1,10 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.75 2003/02/14 18:28:12 cph Exp $
+$Id: edwin.ldr,v 1.76 2005/11/30 04:52:52 cph Exp $
 
-Copyright (c) 1989-2001 Massachusetts Institute of Technology
+Copyright 1989,1990,1991,1992,1993,1994 Massachusetts Institute of Technology
+Copyright 1995,1996,1997,1998,1999,2000 Massachusetts Institute of Technology
+Copyright 2001,2005 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -248,10 +250,8 @@ USA.
 	(load "tagutl" (->environment '(EDWIN TAGS)))
 	(load "texcom" environment)
 	(load "htmlmode" environment)
-	(if (eq? (lookup 'OS-TYPE) 'UNIX)
-	    (begin
-	      (load "rcsparse" (->environment '(EDWIN RCS-PARSE)))
-	      (load "vc" (->environment '(EDWIN VC)))))
+	(load "rcsparse" (->environment '(EDWIN RCS-PARSE)))
+	(load "vc" (->environment '(EDWIN VC)))
 	(load "wincom" environment)
 	(load "scrcom" environment)
 	(load "modefs" environment)
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 65f4312c5..b279dd652 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.290 2005/06/24 17:34:31 cph Exp $
+$Id: edwin.pkg,v 1.291 2005/11/30 04:55:45 cph Exp $
 
 Copyright 1989,1990,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1995,1996,1997,1998,1999,2000 Massachusetts Institute of Technology
@@ -1114,67 +1114,7 @@ USA.
 	    x-button5-down
 	    x-button5-up)
     (export (edwin screen x-screen)
-	    update-xterm-screen-names!))
-
-  (define-package (edwin vc)
-    (files "vc")
-    (parent (edwin))
-    (export (edwin)
-	    edwin-command$vc-diff
-	    edwin-command$vc-directory
-	    edwin-command$vc-dired
-	    edwin-command$vc-finish-logentry
-	    edwin-command$vc-insert-headers
-	    edwin-command$vc-next-action
-	    edwin-command$vc-print-log
-	    edwin-command$vc-register
-	    edwin-command$vc-revert-buffer
-	    edwin-command$vc-toggle-read-only
-	    edwin-command$vc-version-diff
-	    edwin-command$vc-version-other-window
-	    edwin-mode$vc-log
-	    edwin-variable$diff-switches
-	    edwin-variable$vc-checkin-hooks
-	    edwin-variable$vc-checkout-carefully
-	    edwin-variable$vc-command-messages
-	    edwin-variable$vc-cvs-stay-local
-	    edwin-variable$vc-default-init-version
-	    edwin-variable$vc-delete-logbuf-window
-	    edwin-variable$vc-display-status
-	    edwin-variable$vc-follow-symlinks
-	    edwin-variable$vc-initial-comment
-	    edwin-variable$vc-keep-workfiles
-	    edwin-variable$vc-log-mode-hook
-	    edwin-variable$vc-make-backup-files
-	    edwin-variable$vc-mode-line-status
-	    edwin-variable$vc-rcs-preserve-mod-times
-	    edwin-variable$vc-suppress-confirm))
-
-  (define-package (edwin rcs-parse)
-    (files "rcsparse")
-    (parent (edwin))
-    (export (edwin)
-	    parse-rcs-admin
-	    rcs-admin/access-list
-	    rcs-admin/branch
-	    rcs-admin/comment
-	    rcs-admin/description
-	    rcs-admin/expand
-	    rcs-admin/head
-	    rcs-admin/locks
-	    rcs-admin/strict?
-	    rcs-admin/symbols
-	    rcs-admin?
-	    rcs-delta/author
-	    rcs-delta/branches
-	    rcs-delta/date
-	    rcs-delta/next
-	    rcs-delta/number
-	    rcs-delta/state
-	    rcs-delta?
-	    rcs-find-delta
-	    rcs-number-head
-	    rcs-number-length)))
+	    update-xterm-screen-names!)))
 
  ((nt)
   (global-definitions "../win32/win32")
@@ -1485,6 +1425,66 @@ USA.
     (export (edwin screen os2-screen)
 	    update-os2-screen-names!))))
 
+(define-package (edwin vc)
+  (files "vc")
+  (parent (edwin))
+  (export (edwin)
+	  edwin-command$vc-diff
+	  edwin-command$vc-directory
+	  edwin-command$vc-dired
+	  edwin-command$vc-finish-logentry
+	  edwin-command$vc-insert-headers
+	  edwin-command$vc-next-action
+	  edwin-command$vc-print-log
+	  edwin-command$vc-register
+	  edwin-command$vc-revert-buffer
+	  edwin-command$vc-toggle-read-only
+	  edwin-command$vc-version-diff
+	  edwin-command$vc-version-other-window
+	  edwin-mode$vc-log
+	  edwin-variable$diff-switches
+	  edwin-variable$vc-checkin-hooks
+	  edwin-variable$vc-checkout-carefully
+	  edwin-variable$vc-command-messages
+	  edwin-variable$vc-cvs-stay-local
+	  edwin-variable$vc-default-init-version
+	  edwin-variable$vc-delete-logbuf-window
+	  edwin-variable$vc-display-status
+	  edwin-variable$vc-follow-symlinks
+	  edwin-variable$vc-initial-comment
+	  edwin-variable$vc-keep-workfiles
+	  edwin-variable$vc-log-mode-hook
+	  edwin-variable$vc-make-backup-files
+	  edwin-variable$vc-mode-line-status
+	  edwin-variable$vc-rcs-preserve-mod-times
+	  edwin-variable$vc-suppress-confirm))
+
+(define-package (edwin rcs-parse)
+  (files "rcsparse")
+  (parent (edwin))
+  (export (edwin)
+	  parse-rcs-admin
+	  rcs-admin/access-list
+	  rcs-admin/branch
+	  rcs-admin/comment
+	  rcs-admin/description
+	  rcs-admin/expand
+	  rcs-admin/head
+	  rcs-admin/locks
+	  rcs-admin/strict?
+	  rcs-admin/symbols
+	  rcs-admin?
+	  rcs-delta/author
+	  rcs-delta/branches
+	  rcs-delta/date
+	  rcs-delta/next
+	  rcs-delta/number
+	  rcs-delta/state
+	  rcs-delta?
+	  rcs-find-delta
+	  rcs-number-head
+	  rcs-number-length))
+
 (define-package (edwin sendmail)
   (files "sendmail")
   (parent (edwin))
-- 
2.25.1