Fix typo in previous change.

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index 898609dce4feec49e8de44d68957c97cb9ae362b..d00d8239897fee66ce48c27ff5efd38975ae0b32 100644 (file)
--- a/src/runtime/list.scm
+++ b/src/runtime/list.scm
@@ -1400,7 +1400,7 @@ USA.
 (define (get-keyword-values klist key)
   (let ((lose
         (lambda () (error:not-a keyword-list? klist 'get-keyword-values))))
-    (let loop ((klist klist) (values values))
+    (let loop ((klist klist) (values '()))
       (if (pair? klist)
          (begin
            (if (not (pair? (cdr klist)))