From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 3 Jan 2019 16:23:05 +0000 (+0000)
Subject: Integrate %promise-parts.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~29
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1f1e822357542d04a8e7fe8cad4710decaa6cdb9;p=mit-scheme.git

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