Fix bug in sense of graphics buffering. Previously it worked

correctly by default, but the enable/disable operations had the wrong
sense.  Also, flush the buffer when it is disabled.

diff --git a/v7/src/runtime/graphics.scm b/v7/src/runtime/graphics.scm
index 592c92af94c0f0b6d6d0e05d006c0cd82dd15f81..6b280d5021b282da3d00ac47456ac84ccb6141ca 100644 (file)
--- a/v7/src/runtime/graphics.scm
+++ b/v7/src/runtime/graphics.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/graphics.scm,v 1.1 1989/06/23 00:01:08 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/graphics.scm,v 1.2 1989/06/27 10:18:01 cph Rel $
 
 Copyright (c) 1989 Massachusetts Institute of Technology
 
@@ -180,7 +180,7 @@ MIT in each case. |#
   descriptor
   (drawing-mode drawing-mode:dominant)
   (line-style line-style:solid)
-  (buffer? true))
+  (buffer? false))
 
 (define (make-graphics-device type . arguments)
   (%make-graphics-device type
@@ -223,10 +223,12 @@ MIT in each case. |#
   (set-graphics-device/buffer?! device true))
 
 (define (graphics-disable-buffering device)
+  (if (graphics-device/buffer? device)
+      (graphics-flush device))
   (set-graphics-device/buffer?! device false))
 
-(define (maybe-flush device)
-  (if (graphics-device/buffer? device)
+(define-integrable (maybe-flush device)
+  (if (not (graphics-device/buffer? device))
       (graphics-flush device)))
 
 (define (graphics-close device)