From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 6 Jan 2019 04:17:06 +0000 (+0000)
Subject: Integrate PROMISE?.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=de035853ad010a6c6e660a4cc3cc6b38dd2c606b;p=mit-scheme.git

Integrate PROMISE?.

Small but measurable speed improvement, getting to diminishing
returns after a nearly 7x speed increase on promise-heavy stream
code.
---

diff --git a/src/runtime/boot.scm b/src/runtime/boot.scm
index 9c963f04c..4315f4dfe 100644
--- a/src/runtime/boot.scm
+++ b/src/runtime/boot.scm
@@ -436,6 +436,7 @@ USA.
 
 ;;;; Promises
 
+(declare (integrate-operator promise?))
 (define (promise? object)
   (and (cell? object)
        (cell? (cell-contents object))