From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 24 Dec 2001 04:18:01 +0000 (+0000)
Subject: Eliminate references to UNASSIGNED?.
X-Git-Tag: 20090517-FFI~2309
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3a5c58ac43a7ac2c9c9d3c4bee71b5db5cc153c6;p=mit-scheme.git

Eliminate references to UNASSIGNED?.
---

diff --git a/v7/src/compiler/etc/comcmp.scm b/v7/src/compiler/etc/comcmp.scm
index 9ee243d4d..232f70a46 100644
--- a/v7/src/compiler/etc/comcmp.scm
+++ b/v7/src/compiler/etc/comcmp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: comcmp.scm,v 1.9 2001/12/23 17:20:57 cph Exp $
+$Id: comcmp.scm,v 1.10 2001/12/24 04:15:36 cph Exp $
 
 Copyright (c) 1989-1999, 2001 Massachusetts Institute of Technology
 
@@ -24,9 +24,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 
 (declare (usual-integrations))
 
-(if (unassigned? compiled-code-block/bytes-per-object)
-    (set! compiled-code-block/bytes-per-object 4))
-
 (define-syntax ucode-type
   (non-hygienic-macro-transformer
    (lambda (name)
diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm
index 564d16fd5..837a3355a 100644
--- a/v7/src/runtime/syntax.scm
+++ b/v7/src/runtime/syntax.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: syntax.scm,v 14.49 2001/12/22 03:17:19 cph Exp $
+$Id: syntax.scm,v 14.50 2001/12/24 04:18:01 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -63,7 +63,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
      ;; Environment extensions
      (ACCESS ,syntax/access)
      (THE-ENVIRONMENT ,syntax/the-environment)
-     (UNASSIGNED? ,syntax/unassigned?)
      ;; To facilitate upgrade to new option argument mechanism.
      (DEFAULT-OBJECT? ,syntax/unassigned?)
 
@@ -88,9 +87,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 	 (fluid-let ((*syntax-table*
 		      (make-syntax-table
 		       (if (eq? table 'DEFAULT)
-			   (if (unassigned? *syntax-table*)
-			       (nearest-repl/environment)
-			       *syntax-table*)
+			   (nearest-repl/environment)
 			   (guarantee-syntax-table table name))))
 		     (*current-keyword* #f))
 	   (syntaxer #t expression))))
diff --git a/v7/src/runtime/unsyn.scm b/v7/src/runtime/unsyn.scm
index ce7ed3887..d2aac5961 100644
--- a/v7/src/runtime/unsyn.scm
+++ b/v7/src/runtime/unsyn.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unsyn.scm,v 14.26 2001/12/22 03:17:22 cph Exp $
+$Id: unsyn.scm,v 14.27 2001/12/24 04:17:53 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -185,7 +185,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
       `(,(unsyntax-object value))))
 
 (define (unsyntax-UNASSIGNED?-object object)
-  `(UNASSIGNED? ,(unassigned?-name object)))
+  `(DEFAULT-OBJECT? ,(unassigned?-name object)))
 
 (define (unsyntax-COMMENT-object comment)
   (let ((expression (unsyntax-object (comment-expression comment))))