Eliminate references to UNASSIGNED?.

diff --git a/v7/src/compiler/etc/comcmp.scm b/v7/src/compiler/etc/comcmp.scm
index 9ee243d4d625a37884031d6735f0d77f86978404..232f70a4604249856f7b3f77a23f2c83ec417914 100644 (file)
--- 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))
 \f
-(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 564d16fd5fcadf88d0aa07b32033f9bbee964631..837a3355ac60932bf523027cb05a0db804dbd54e 100644 (file)
--- 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 ce7ed3887585463be2638dd8823746ae3fa03281..d2aac59610e7c20d166871dcf38b9fa6569fc1b5 100644 (file)
--- 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))))
 \f
 (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))))