From: ojn Date: Fri, 23 Jun 1989 21:13:06 +0000 (+0000) Subject: Export the x-graphics operations to the global package. Shouldn't X-Git-Tag: 20090517-FFI~11972 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d21edd57a490c0bc4214abf94870366565a2f56e;p=mit-scheme.git Export the x-graphics operations to the global package. Shouldn't have deleted them in the first place. --- 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)