Fix open-coding of default-object?.

Not sure why this makes any difference, but it seems to.

diff --git a/src/runtime/boot.scm b/src/runtime/boot.scm
index 6c9333fde16bc6a005c69cd1742bb772820a5efc..a8c506021a532fad65ca721e247ca89e67092313 100644 (file)
--- a/src/runtime/boot.scm
+++ b/src/runtime/boot.scm
@@ -258,10 +258,10 @@ USA.
   #f)
 
 (define (default-object? object)
-  (eq? object (default-object)))
+  (eq? object #!default))
 
 (define (default-object)
-  ((ucode-primitive object-set-type) (ucode-type constant) 7))
+  #!default)
 
 (define (gc-space-status)
   ((ucode-primitive gc-space-status)))

diff --git a/src/sf/usiexp.scm b/src/sf/usiexp.scm
index 7440f0e59062622da17b088acb4753e71a1779be..0fa9a09ac3ce64174dd28a624696c0bbd6669c24 100644 (file)
--- a/src/sf/usiexp.scm
+++ b/src/sf/usiexp.scm
@@ -641,7 +641,7 @@ USA.
           (null? (cdr operands)))
       (make-combination expr block (ucode-primitive eq?)
                        (list (car operands)
-                             (constant/make #f (default-object))))
+                             (constant/make #f #!default)))
       #f))
 
 (define (make-disjunction expr . clauses)