From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 5 Aug 1988 20:15:45 +0000 (+0000)
Subject: Add variable `unspecific' which the compiler may treat as being bound
X-Git-Tag: 20090517-FFI~12635
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3bac143015c2db752baf11a0799ddfc02a1cc0c0;p=mit-scheme.git

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 8c5532f2c..75dbbe5c6 100644
--- 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 3a7df21b1..cf46b0026 100644
--- 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 3e76d5dd5..e7cbdad16 100644
--- 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