From d2c3c3b75678e101d032a3ba02aee2bd7b84838f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 8 Jul 2019 23:28:20 -0400 Subject: [PATCH] Fix screw-up in previous host-adapter change. --- src/runtime/host-adapter.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 2.25.1