Try different magic for edwin extensions package.

diff --git a/v7/src/6001/6001.pkg b/v7/src/6001/6001.pkg
index 7b84d9d8e134862b2b25ea7346580a0d50c75040..d1ada68e06e356a3ffcf4b89d5413f6b90d39d93 100644 (file)
--- a/v7/src/6001/6001.pkg
+++ b/v7/src/6001/6001.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.pkg,v 1.6 1992/09/01 22:20:50 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/6001.pkg,v 1.7 1992/09/01 22:25:24 cph Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -144,10 +144,4 @@ MIT in each case. |#
          ;picture-scale
          ;picture-set!
          ;picture-v-reflect
-         ))
-
-(define-package (student edwin-extensions)
-  (files "edextra")
-  (parent (edwin))
-  (export (edwin)
-         edwin-command$print-graphics))
\ No newline at end of file
+         ))
\ No newline at end of file

diff --git a/v7/src/6001/make.scm b/v7/src/6001/make.scm
index 1c51627086dce722f9aa9b9a59618f1d333529f8..e6f8a337f03e0dc39f8e7db3ca15d4189b057db9 100644 (file)
--- a/v7/src/6001/make.scm
+++ b/v7/src/6001/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/make.scm,v 15.12 1992/08/21 23:53:54 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/make.scm,v 15.13 1992/09/01 22:26:17 cph Exp $
 
 Copyright (c) 1991-92 Massachusetts Institute of Technology
 
@@ -37,6 +37,7 @@ MIT in each case. |#
 (declare (usual-integrations))
 
 (package/system-loader "6001" '() 'QUERY)
+(load "edextra" (->environment '(edwin)))
 ((access initialize-package! (->environment '(student scode-rewriting))))
 (add-system! (make-system "6.001" 15 6 '()))