From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 25 Feb 1993 19:59:36 +0000 (+0000)
Subject: Install missing error checks in various procedures that take lists as
X-Git-Tag: 20090517-FFI~8450
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=59d6b760dd5c945a4ea7257b86c9708b527b3aa7;p=mit-scheme.git

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.
---

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