From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Jan 2017 22:11:58 +0000 (-0800)
Subject: Fix typo in previous change.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~119
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4d7e06845138d6c662b8b910433f54d637262a1a;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/src/runtime/list.scm b/src/runtime/list.scm
index 898609dce..d00d82398 100644
--- 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)))