Integrate %promise-parts.

Shaves another 20% off time for test-promise.scm.

diff --git a/src/runtime/boot.scm b/src/runtime/boot.scm
index 86e46598928625566de06267f548994db0f9511d..68e62a00ea2bec51b92e0db1e6115f136cccd226 100644 (file)
--- a/src/runtime/boot.scm
+++ b/src/runtime/boot.scm
@@ -444,7 +444,7 @@ USA.
   ;(guarantee thunk? thunk 'make-unforced-promise)
   (make-cell (make-cell (system-pair-cons (ucode-type delayed) #f thunk))))
 
-(define (%promise-parts promise)
+(define-integrable (%promise-parts promise)
   (let ((p (cell-contents (cell-contents promise))))
     (values (system-pair-car p)
            (system-pair-cdr p))))