From: Chris Hanson <cph@google.com>
Date: Thu, 25 Jan 2018 21:57:51 +0000 (-0800)
Subject: Add missing rename to host-adapter. Thanks Joe Marshall for another catch.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~310
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=124935a654233b7f87b01c08568ffff89c7ba3fd;p=mit-scheme.git

Add missing rename to host-adapter. Thanks Joe Marshall for another catch.
---

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index e594e5be0..4206daf99 100644
--- a/src/runtime/host-adapter.scm
+++ b/src/runtime/host-adapter.scm
@@ -127,7 +127,9 @@ USA.
 		the-environment
 		unassigned?
 		variable))
-    (provide-rename 'set-scode-lambda-body! 'set-lambda-body!))
+    (provide-rename 'set-scode-lambda-body! 'set-lambda-body!)
+    (provide-rename 'undefined-scode-conditional-branch
+		    'undefined-conditional-branch))
 
   (let ((env (->environment '(runtime))))
     (if (unbound? env 'select-on-bytes-per-word)