From 8d254d91941e79ca6040ed8b01ffd0ba66649054 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 19 Jul 1988 20:42:58 +0000 Subject: [PATCH] Implement primitive `print-graphics-inverse'. --- v7/src/runtime/runtime.pkg | 3 ++- v8/src/runtime/runtime.pkg | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index f6353d3c6..efe04245e 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.15 1988/07/16 09:43:39 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.16 1988/07/19 20:42:58 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -1449,6 +1449,7 @@ MIT in each case. |# init-graphics position-pen print-graphics + print-graphics-inverse set-graphics-drawing-mode set-graphics-line-style with-graphics-drawing-mode diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index 8ca79d709..dba3f9b88 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.15 1988/07/16 09:43:39 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.16 1988/07/19 20:42:58 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -1449,6 +1449,7 @@ MIT in each case. |# init-graphics position-pen print-graphics + print-graphics-inverse set-graphics-drawing-mode set-graphics-line-style with-graphics-drawing-mode -- 2.25.1