From d945224838004397894aff527b93f39b29da73da Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 7 Jun 1989 19:15:00 +0000 Subject: [PATCH] Fix stupid bugs introduced in `vector-map'. --- v7/src/runtime/vector.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/vector.scm b/v7/src/runtime/vector.scm index 5fe1fbd1b..b662c1c78 100644 --- a/v7/src/runtime/vector.scm +++ b/v7/src/runtime/vector.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/vector.scm,v 14.3 1989/06/06 22:30:26 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/vector.scm,v 14.4 1989/06/07 19:15:00 cph Rel $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -92,9 +92,13 @@ MIT in each case. |# vector (let ((result (make-vector length))) (let loop ((index 0)) - (vector-set! result index (procedure (vector-ref vector index))) (if (< index length) - (loop (1+ index)))))))) + (begin + (vector-set! result + index + (procedure (vector-ref vector index))) + (loop (1+ index))))) + result)))) (define (for-each-vector-element vector procedure) (let ((length (vector-length vector))) -- 2.25.1