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 9c963f04c4121f7742a1a9773aacfad79f8651aa..4315f4dfe294d401902bf197f895da4c8b44ff8f 100644 (file)
--- a/src/runtime/boot.scm
+++ b/src/runtime/boot.scm
@@ -436,6 +436,7 @@ USA.
 \f
 ;;;; Promises
 
+(declare (integrate-operator promise?))
 (define (promise? object)
   (and (cell? object)
        (cell? (cell-contents object))