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 ea5669b102b4417c1d220d5613a35b47b67ea0ba..7b89bdf4b33726130640a28dfcc95c879cf94e41 100644 (file)
--- 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