From 06a726e52907631709c8f98457f6280f579ec83e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 1 Sep 1992 22:26:17 +0000 Subject: [PATCH] Try different magic for edwin extensions package. --- v7/src/6001/6001.pkg | 10 ++-------- v7/src/6001/make.scm | 3 ++- 2 files changed, 4 insertions(+), 9 deletions(-) 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 '())) -- 2.25.1