From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 1 Sep 1992 22:26:17 +0000 (+0000)
Subject: Try different magic for edwin extensions package.
X-Git-Tag: 20090517-FFI~9019
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=06a726e52907631709c8f98457f6280f579ec83e;p=mit-scheme.git

Try different magic for edwin extensions package.
---

diff --git a/v7/src/6001/6001.pkg b/v7/src/6001/6001.pkg
index 7b84d9d8e..d1ada68e0 100644
--- 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 1c5162708..e6f8a337f 100644
--- 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 '()))