Fix screw-up in previous host-adapter change.

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index ede64f56d7077ed6d98f905b4ece6c1b00ac1379..d98c3676f42f9c7efe7bc2e5335fad0bf9f7b764 100644 (file)
--- 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)