Change DEFAULT-OBJECT? from syntax to a procedure. Requires

corresponding changes to microcode.

diff --git a/v7/src/runtime/boot.scm b/v7/src/runtime/boot.scm
index 596aa8795aa895a03c59beac48a435bd6a85b8d1..ad034e48934e050e57d014b8899a98f0136ba5ec 100644 (file)
--- a/v7/src/runtime/boot.scm
+++ b/v7/src/runtime/boot.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: boot.scm,v 14.18 2004/10/01 02:47:41 cph Exp $
+$Id: boot.scm,v 14.19 2004/11/18 18:15:59 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1992 Massachusetts Institute of Technology
 Copyright 1993,1996,2001,2004 Massachusetts Institute of Technology
@@ -115,4 +115,10 @@ USA.
   get-next-constant)
 
 (define-integrable (future? object)
-  ((ucode-primitive object-type? 2) (ucode-type future) object))
\ No newline at end of file
+  ((ucode-primitive object-type? 2) (ucode-type future) object))
+
+(define-integrable (default-object? object)
+  (eq? object (default-object)))
+
+(define-integrable (default-object)
+  (object-new-type (ucode-type constant) 7))
\ No newline at end of file

diff --git a/v7/src/runtime/mit-syntax.scm b/v7/src/runtime/mit-syntax.scm
index 0cdfe4d0670ce9c9c9da23e2431d4a83af219f96..0f2dd904955a85cfc078b38fd96ed7b0f1eccc4e 100644 (file)
--- a/v7/src/runtime/mit-syntax.scm
+++ b/v7/src/runtime/mit-syntax.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: mit-syntax.scm,v 14.21 2004/09/14 01:37:16 cph Exp $
+$Id: mit-syntax.scm,v 14.22 2004/11/18 18:16:04 cph Exp $
 
 Copyright 1989,1990,1991,2001,2002,2003 Massachusetts Institute of Technology
 Copyright 2004 Massachusetts Institute of Technology
@@ -863,18 +863,6 @@ USA.
        (syntax-check '(KEYWORD EXPRESSION EXPRESSION) form history)
        `(,(rename 'CONS) ,(cadr form)
                         (,(rename 'DELAY) ,(caddr form)))))))
-
-(define-compiler 'DEFAULT-OBJECT? system-global-environment
-  (lambda (form environment history)
-    (syntax-check '(KEYWORD IDENTIFIER) form history)
-    (let ((item
-          (classify/subexpression (cadr form)
-                                  environment
-                                  history
-                                  select-cadr)))
-      (if (not (variable-item? item))
-         (syntax-error history "Variable required in this context:" form))
-      (output/unassigned-test (variable-item/name item)))))
 \f
 (define-er-macro-transformer 'DEFINE-INTEGRABLE system-global-environment
   (lambda (form rename compare)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 3874e9a25f1f332d4101fb8078de768e177f2286..d34fd3fd7cb9cf35a1a3b863ac3b55b805631d18 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.511 2004/11/17 05:42:33 cph Exp $
+$Id: runtime.pkg,v 14.512 2004/11/18 18:16:08 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1996,1997,1998,1999 Massachusetts Institute of Technology
@@ -137,6 +137,8 @@ USA.
   (files "boot")
   (parent (runtime))
   (export ()
+         default-object
+         default-object?
          future?
          get-next-constant
          interrupt-bit/after-gc

diff --git a/v7/src/runtime/version.scm b/v7/src/runtime/version.scm
index 3783d97bdd51a3a1c77f556467bead42c6a90588..738c891756b6f961add4d786cfe1855d37457c4c 100644 (file)
--- a/v7/src/runtime/version.scm
+++ b/v7/src/runtime/version.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: version.scm,v 14.218 2004/10/12 22:42:49 cph Exp $
+$Id: version.scm,v 14.219 2004/11/18 18:16:13 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1995,1996,1997,1998,1999,2000 Massachusetts Institute of Technology
@@ -34,7 +34,7 @@ USA.
   (add-subsystem-identification! "Release" '(7 7 91))
   (snarf-microcode-version!)
   (add-event-receiver! event:after-restore snarf-microcode-version!)
-  (add-subsystem-identification! "Runtime" '(15 5)))
+  (add-subsystem-identification! "Runtime" '(15 6)))
 
 (define (snarf-microcode-version!)
   (add-subsystem-identification! "Microcode"