From 1752ea093e03032c9cb75c6581171c4b643d9f11 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 18 Jan 1990 19:18:20 +0000
Subject: [PATCH] Suppress error messages when opening a graphics device, so
 that we can use this primitive to test for the availability of the device. 
 Also fix typo in `starbase-write-image-file'.

---
 v7/src/microcode/starbase.c | 8 +++++---
 v7/src/microcode/version.h  | 4 ++--
 v8/src/microcode/version.h  | 4 ++--
 3 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/v7/src/microcode/starbase.c b/v7/src/microcode/starbase.c
index 2853dc104..e25b2461c 100644
--- a/v7/src/microcode/starbase.c
+++ b/v7/src/microcode/starbase.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/starbase.c,v 1.3 1989/09/20 23:11:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/starbase.c,v 1.4 1990/01/18 19:18:02 cph Rel $
 
-Copyright (c) 1989 Massachusetts Institute of Technology
+Copyright (c) 1989, 1990 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -80,8 +80,10 @@ DEFINE_PRIMITIVE ("STARBASE-OPEN-DEVICE", Prim_starbase_open_device, 2, 2,
   "(STARBASE-OPEN-DEVICE DEVICE-NAME DRIVER-NAME)")
 {
   PRIMITIVE_HEADER (2);
+  gerr_print_control (NO_ERROR_PRINTING);
   {
     int descriptor = (gopen ((STRING_ARG (1)), OUTDEV, (STRING_ARG (2)), 0));
+    gerr_print_control (PRINT_ERRORS);
     if (descriptor == (-1))
       PRIMITIVE_RETURN (SHARP_F);
     set_vdc_extent (descriptor, (-1.0), (-1.0), (1.0), (1.0));
@@ -372,7 +374,7 @@ suitable for printing on an HP laserjet printer.\n\
 If INVERT? is not #F, invert black and white in the output.")
 {
   PRIMITIVE_HEADER (3);
-  print_graphics ((SB_DEVICE_ARG (2)), (STRING_ARG (2)), (BOOLEAN_ARG (3)));
+  print_graphics ((SB_DEVICE_ARG (1)), (STRING_ARG (2)), (BOOLEAN_ARG (3)));
   PRIMITIVE_RETURN (UNSPECIFIC);
 }
 
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 997806ce0..0195eb6e3 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.19 1990/01/16 01:57:31 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.20 1990/01/18 19:18:20 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	19
+#define SUBVERSION	20
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 50a26f595..29b89e91f 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.19 1990/01/16 01:57:31 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.20 1990/01/18 19:18:20 cph Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -46,7 +46,7 @@ MIT in each case. */
 #define VERSION		11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	19
+#define SUBVERSION	20
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
-- 
2.25.1