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-Tag: mit-scheme-pucked-10.1.12~7^2~11
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ee4105a8e99db8e9304052343ab0fb69ecafcedf;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 41f5c7b8c..8aed7d510 100644
--- a/src/runtime/host-adapter.scm
+++ b/src/runtime/host-adapter.scm
@@ -82,8 +82,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)