From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Jul 2019 03:28:20 +0000 (-0400)
Subject: Fix screw-up in previous host-adapter change.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d2c3c3b75678e101d032a3ba02aee2bd7b84838f;p=mit-scheme.git

Fix screw-up in previous host-adapter change.
---

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index ede64f56d..d98c3676f 100644
--- a/src/runtime/host-adapter.scm
+++ b/src/runtime/host-adapter.scm
@@ -196,8 +196,10 @@ USA.
 	(let ((i
 	       (list-index (lambda (name*) (eq? name* name))
 			   names)))
-	  (remove-at-index! i names set-names!)
-	  (remove-at-index! i (get-vals) set-vals!))))
+	  (if i
+	      (begin
+		(remove-at-index! i names set-names!)
+		(remove-at-index! i (get-vals) set-vals!))))))
 
     (remove-one 'call-with-values)
     (remove-one 'with-values)