Fix screw-up in previous host-adapter change.

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