From ee4105a8e99db8e9304052343ab0fb69ecafcedf 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 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) -- 2.25.1