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'.

diff --git a/v7/src/microcode/starbase.c b/v7/src/microcode/starbase.c
index 2853dc104be69c8dd4ebb2ae809dcb1eff4d5ce2..e25b2461cb2b6d0e9c4aae15da6e5ed065a840b6 100644 (file)
--- 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 997806ce0a566f6b5fd7bb763adde9855f072305..0195eb6e3b0e3aac6b28e4692a544f1fdce40b6a 100644 (file)
--- 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 50a26f595e1b2171dc15712dbe92245ab1e09d72..29b89e91fac1b90c9d663c164aa79c92e264c017 100644 (file)
--- 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