From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 13 Jan 2018 06:28:54 +0000 (-0800)
Subject: Fix open-coding of default-object?.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~373
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b8fd1e8f442e9479b121c11f5dbc0f02facff742;p=mit-scheme.git

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 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)