From b8fd1e8f442e9479b121c11f5dbc0f02facff742 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 12 Jan 2018 22:28:54 -0800
Subject: [PATCH] Fix open-coding of default-object?.

Not sure why this makes any difference, but it seems to.
---
 src/runtime/boot.scm | 4 ++--
 src/sf/usiexp.scm    | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/runtime/boot.scm b/src/runtime/boot.scm
index 6c9333fde..a8c506021 100644
--- 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 7440f0e59..0fa9a09ac 100644
--- 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)
-- 
2.25.1