From 59d6b760dd5c945a4ea7257b86c9708b527b3aa7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 25 Feb 1993 19:59:36 +0000
Subject: [PATCH] Install missing error checks in various procedures that take
 lists as arguments.  Replace simple error calls with calls to more specific
 error signalling procedures.  Change mapping procedures to use iterative
 algorithm for multiple-list case.

---
 v7/src/runtime/list.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/list.scm b/v7/src/runtime/list.scm
index ea5669b10..7b89bdf4b 100644
--- a/v7/src/runtime/list.scm
+++ b/v7/src/runtime/list.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: list.scm,v 14.15 1993/02/25 19:53:29 cph Exp $
+$Id: list.scm,v 14.16 1993/02/25 19:59:36 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -198,7 +198,7 @@ MIT in each case. |#
 	  '()))))
 
 (define (list->weak-list items)
-  (let ((items* items))
+  (let loop ((items* items))
     (if (pair? items*)
 	(weak-cons (car items*) (loop (cdr items*)))
 	(begin
-- 
2.25.1