From d21edd57a490c0bc4214abf94870366565a2f56e Mon Sep 17 00:00:00 2001 From: ojn Date: Fri, 23 Jun 1989 21:13:06 +0000 Subject: [PATCH] Export the x-graphics operations to the global package. Shouldn't have deleted them in the first place. --- v7/src/runtime/runtime.pkg | 6 ++++-- v8/src/runtime/runtime.pkg | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index a521f2bbd..5a3ba5866 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.40 1989/06/22 23:50:57 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.41 1989/06/23 21:13:06 ojn Rel $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -1545,7 +1545,9 @@ MIT in each case. |# set-graphics-drawing-mode set-graphics-line-style with-graphics-drawing-mode - with-graphics-line-style) + with-graphics-line-style + x-graphics-available? + x-graphics-initialize) (initialization (initialize-package!))) (define-package (runtime state-space) diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index 9320a8174..ed78cabfb 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.40 1989/06/22 23:50:57 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.41 1989/06/23 21:13:06 ojn Rel $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -1545,7 +1545,9 @@ MIT in each case. |# set-graphics-drawing-mode set-graphics-line-style with-graphics-drawing-mode - with-graphics-line-style) + with-graphics-line-style + x-graphics-available? + x-graphics-initialize) (initialization (initialize-package!))) (define-package (runtime state-space) -- 2.25.1