From 1f1e822357542d04a8e7fe8cad4710decaa6cdb9 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 3 Jan 2019 16:23:05 +0000
Subject: [PATCH] Integrate %promise-parts.

Shaves another 20% off time for test-promise.scm.
---
 src/runtime/boot.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/boot.scm b/src/runtime/boot.scm
index 86e465989..68e62a00e 100644
--- 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))))
-- 
2.25.1