Load VC on all platforms, not just unix.

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 912ad6a405203849b9cfcb2a5709a0102961e93e..1cb27a5f5ef6f131b326caf7e4469e6ce088c087 100644 (file)
--- 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 65f4312c5870a8ee32d25b15f34272885633784e..b279dd652c87813b085b4b590ad0130f1f729ab1 100644 (file)
--- 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!))))
 \f
+(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))