Add variable `unspecific' which the compiler may treat as being bound

to any convenient value.  This is used as the value of an expression
when that expression's value is unused.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 8c5532f2c196ff78270581defcba8ffa99c9dad0..75dbbe5c6a80273493e00aea784b5341533b9086 100644 (file)
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.3 1988/06/16 06:30:22 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.4 1988/08/05 20:15:45 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -250,4 +250,11 @@ MIT in each case. |#
   (or (eq? object undefined-conditional-branch)
       ;; same as `undefined-conditional-branch'.
       ;; (eq? object *the-non-printing-object*)
-      (eq? object (microcode-object/unassigned))))
\ No newline at end of file
+      ;; (eq? object unspecific)
+      (eq? object (microcode-object/unassigned))))
+
+(define *the-non-printing-object*
+  (object-new-type (ucode-type true) 1))
+
+(define unspecific
+  (object-new-type (ucode-type true) 1))
\ No newline at end of file

diff --git a/v7/src/sf/gconst.scm b/v7/src/sf/gconst.scm
index 3a7df21b121c3eb5d2540554c128ef8bfc11e7c2..cf46b00268fae4ee96ec2a9f0ddf56a289398244 100644 (file)
--- a/v7/src/sf/gconst.scm
+++ b/v7/src/sf/gconst.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/gconst.scm,v 4.1 1988/06/13 12:29:28 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/gconst.scm,v 4.2 1988/08/05 20:15:15 cph Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -217,6 +217,7 @@ MIT in each case. |#
     TRUNCATE
     UNDEFINED-CONDITIONAL-BRANCH
     UNSIGNED-INTEGER->BIT-STRING
+    UNSPECIFIC
     VECTOR
     VECTOR-8B-FILL!
     VECTOR-8B-FIND-NEXT-CHAR

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index 3e76d5dd5b015544a448623a6f495e07e8a72791..e7cbdad1603c6103436993e671b9d4b38c7e7939 100644 (file)
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.3 1988/06/16 06:30:22 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.4 1988/08/05 20:15:45 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -250,4 +250,11 @@ MIT in each case. |#
   (or (eq? object undefined-conditional-branch)
       ;; same as `undefined-conditional-branch'.
       ;; (eq? object *the-non-printing-object*)
-      (eq? object (microcode-object/unassigned))))
\ No newline at end of file
+      ;; (eq? object unspecific)
+      (eq? object (microcode-object/unassigned))))
+
+(define *the-non-printing-object*
+  (object-new-type (ucode-type true) 1))
+
+(define unspecific
+  (object-new-type (ucode-type true) 1))
\ No newline at end of file