From: Chris Hanson Date: Mon, 8 Nov 1999 18:29:58 +0000 (+0000) Subject: Change order of arguments to VECTOR-MAP. X-Git-Tag: 20090517-FFI~4420 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bf8bf0d97dea9b448624ca0c808e38f723890c29;p=mit-scheme.git Change order of arguments to VECTOR-MAP. --- diff --git a/v7/doc/ref-manual/scheme.texinfo b/v7/doc/ref-manual/scheme.texinfo index a14e07480..9e3b39da6 100644 --- a/v7/doc/ref-manual/scheme.texinfo +++ b/v7/doc/ref-manual/scheme.texinfo @@ -2,7 +2,7 @@ @iftex @finalout @end iftex -@comment $Id: scheme.texinfo,v 1.81 1999/11/08 18:23:39 cph Exp $ +@comment $Id: scheme.texinfo,v 1.82 1999/11/08 18:23:57 cph Exp $ @comment %**start of header (This is for running Texinfo on a region.) @setfilename scheme.info @settitle MIT Scheme Reference @@ -95,9 +95,9 @@ by the Massachusetts Institute of Technology. @titlepage @title{MIT Scheme Reference Manual} -@subtitle Edition 1.80 +@subtitle Edition 1.82 @subtitle for Scheme Release 7.5 -@subtitle 20 August 1999 +@subtitle 8 November 1999 @author by Chris Hanson @author the MIT Scheme Team @author and a cast of thousands diff --git a/v7/src/compiler/rtlopt/rcserq.scm b/v7/src/compiler/rtlopt/rcserq.scm index bd98da729..f57426294 100644 --- a/v7/src/compiler/rtlopt/rcserq.scm +++ b/v7/src/compiler/rtlopt/rcserq.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rcserq.scm,v 4.6 1999/01/02 06:06:43 cph Exp $ +$Id: rcserq.scm,v 4.7 1999/11/08 18:29:35 cph Exp $ Copyright (c) 1988, 1989, 1999 Massachusetts Institute of Technology @@ -70,10 +70,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (vector-fill! (vector-ref register-tables 5) -1)) (define (register-tables/copy register-tables) - (vector (vector-map (vector-ref register-tables 0) - (lambda (quantity) + (vector (vector-map (lambda (quantity) (and quantity - (quantity-copy quantity)))) + (quantity-copy quantity))) + (vector-ref register-tables 0)) (vector-copy (vector-ref register-tables 1)) (vector-copy (vector-ref register-tables 2)) (vector-copy (vector-ref register-tables 3)) diff --git a/v7/src/compiler/rtlopt/rdflow.scm b/v7/src/compiler/rtlopt/rdflow.scm index 97ba49074..ce4e63885 100644 --- a/v7/src/compiler/rtlopt/rdflow.scm +++ b/v7/src/compiler/rtlopt/rdflow.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rdflow.scm,v 1.3 1999/01/02 06:06:43 cph Exp $ +$Id: rdflow.scm,v 1.4 1999/11/08 18:29:19 cph Exp $ Copyright (c) 1990, 1999 Massachusetts Institute of Technology @@ -29,17 +29,17 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (let ((rnodes (generate-dataflow-graph rgraph))) (set-rgraph-register-value-classes! rgraph - (vector-map rnodes - (lambda (rnode) - (and rnode - (rnode/value-class rnode))))) + (vector-map (lambda (rnode) + (and rnode + (rnode/value-class rnode))) + rnodes)) (generate-known-values! rnodes) (set-rgraph-register-known-values! rgraph - (vector-map rnodes - (lambda (rnode) - (and rnode - (rnode/known-value rnode))))))) + (vector-map (lambda (rnode) + (and rnode + (rnode/known-value rnode))) + rnodes)))) rgraphs)) (define (rnode/value-class rnode) diff --git a/v7/src/edwin/snr.scm b/v7/src/edwin/snr.scm index dd7fe4710..3f18ef237 100644 --- a/v7/src/edwin/snr.scm +++ b/v7/src/edwin/snr.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: snr.scm,v 1.53 1999/11/05 05:38:15 cph Exp $ +;;; $Id: snr.scm,v 1.54 1999/11/08 18:28:47 cph Exp $ ;;; ;;; Copyright (c) 1995-1999 Massachusetts Institute of Technology ;;; @@ -990,8 +990,8 @@ This shows News groups that have been created since the last time that (message msg) (initialize-news-groups-buffer buffer - (vector-map group-names - (lambda (name) (name->news-group buffer name)))) + (vector-map (lambda (name) (name->news-group buffer name)) + group-names)) (message msg "done")) (find-first-line buffer ang-buffer:mark-group-name))))) diff --git a/v7/src/pcsample/pcsdisp.scm b/v7/src/pcsample/pcsdisp.scm index 7198515a9..3f80b5249 100644 --- a/v7/src/pcsample/pcsdisp.scm +++ b/v7/src/pcsample/pcsdisp.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: pcsdisp.scm,v 1.2 1999/01/02 06:11:34 cph Exp $ +$Id: pcsdisp.scm,v 1.3 1999/11/08 18:29:58 cph Exp $ Copyright (c) 1993, 1999 Massachusetts Institute of Technology @@ -253,8 +253,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (display-acated-p&h-lists (map (lambda (table label cable) ; 8 tables: 4 purified + 4 not (vector->list - (vector-map table - (lambda (elt) + (vector-map (lambda (elt) (let* ((coblx (profile-hash-table-car elt)) (datum (profile-hash-table-cdr elt)) (count @@ -264,7 +263,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (set-cell-contents! cable (flo:+ count (cell-contents cable))) - `(,count ,label ,coblx ,@name-list)))))) + `(,count ,label ,coblx ,@name-list))) + table))) (vector->list (if *display-acation-status* (pc-sample/status/code-block-table @@ -448,17 +448,17 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (display-acated-list (vector->list (vector-map - (if *display-acation-status* - (pc-sample/status/interp-proc-table - *display-acation-status*) - (pc-sample/interp-proc-table)) (lambda (elt) (let* ((lambx (profile-hash-table-car elt)) (datum (profile-hash-table-cdr elt)) (count (interp-proc-profile-datum/count datum)) (name (lambda/name/display-acate lambx))) (set! tally (flo:+ count tally)) - `(,count INTERP-PROC ,lambx ,name))))))) + `(,count INTERP-PROC ,lambx ,name))) + (if *display-acation-status* + (pc-sample/status/interp-proc-table + *display-acation-status*) + (pc-sample/interp-proc-table)))))) (if (null? display-acated-list) (string-append "; +++ No Interp-Procs Sampled Yet +++" BTW-string) diff --git a/v7/src/runtime/io.scm b/v7/src/runtime/io.scm index 103926ceb..a81a7d745 100644 --- a/v7/src/runtime/io.scm +++ b/v7/src/runtime/io.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: io.scm,v 14.59 1999/02/24 21:57:06 cph Exp $ +$Id: io.scm,v 14.60 1999/11/08 18:28:11 cph Exp $ Copyright (c) 1988-1999 Massachusetts Institute of Technology @@ -322,10 +322,10 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (lambda () (let ((descriptors ((ucode-primitive channel-table 0)))) (and descriptors - (vector-map descriptors - (lambda (descriptor) - (or (descriptor->channel descriptor) - (make-channel descriptor))))))))) + (vector-map (lambda (descriptor) + (or (descriptor->channel descriptor) + (make-channel descriptor))) + descriptors)))))) ;;;; File Primitives diff --git a/v7/src/runtime/os2graph.scm b/v7/src/runtime/os2graph.scm index cd79c0e06..1447f4851 100644 --- a/v7/src/runtime/os2graph.scm +++ b/v7/src/runtime/os2graph.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: os2graph.scm,v 1.15 1999/02/24 21:57:12 cph Exp $ +$Id: os2graph.scm,v 1.16 1999/11/08 18:28:28 cph Exp $ Copyright (c) 1995-1999 Massachusetts Institute of Technology @@ -298,8 +298,8 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (let ((window (graphics-device/descriptor device))) (without-interrupts (lambda () - (let ((xv (vector-map xv (lambda (x) (window/x->device window x)))) - (yv (vector-map yv (lambda (y) (window/y->device window y))))) + (let ((xv (vector-map (lambda (x) (window/x->device window x)) xv)) + (yv (vector-map (lambda (y) (window/y->device window y)) yv))) (let ((xl (fix:vector-min xv)) (yl (fix:vector-min yv)) (xh (fix:+ (fix:vector-max xv) 1)) diff --git a/v7/src/runtime/vector.scm b/v7/src/runtime/vector.scm index 7bec8eea7..85a19de85 100644 --- a/v7/src/runtime/vector.scm +++ b/v7/src/runtime/vector.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: vector.scm,v 14.13 1999/11/08 18:22:52 cph Exp $ +$Id: vector.scm,v 14.14 1999/11/08 18:26:08 cph Exp $ Copyright (c) 1988-1999 Massachusetts Institute of Technology @@ -111,7 +111,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. vector)) (define (vector-map procedure vector) - (if (and (vector? procedure) (procedure? vector)) + (if (vector? procedure) ;; KLUDGE: accept arguments in old order. (vector-map vector procedure) (begin