Change order of arguments to VECTOR-MAP.

diff --git a/v7/doc/ref-manual/scheme.texinfo b/v7/doc/ref-manual/scheme.texinfo
index a14e07480ca89f7c5b3287e75d79d7e88bc40eb7..9e3b39da64961d7a4070a4503a5f3bf74c5e7d0e 100644 (file)
--- 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 bd98da7295051b7f7323f66e4a3d9b266071dfc9..f574262941160f5b8583935642c8374844bccd2a 100644 (file)
--- 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 97ba49074c815351358d7605fa2986a1f3c6ea47..ce4e63885e237d39aff3d4cd001f764ecbffbe47 100644 (file)
--- 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 dd7fe4710a2c746168317d2b961b3cfcf12ae7e4..3f18ef237393be465e38032fe2407b832cf8137a 100644 (file)
--- 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 7198515a910a1d942269cb546262a3253d02575c..3f80b52495a516d97e45f082a81f0d933b7b7edb 100644 (file)
--- 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 103926ceb16fb75085e067b4b92e0e2db2f67d28..a81a7d745a1288494826dcd6b5d597da2d914c78 100644 (file)
--- 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))))))
 \f
 ;;;; File Primitives
 

diff --git a/v7/src/runtime/os2graph.scm b/v7/src/runtime/os2graph.scm
index cd79c0e06a3f17de5cda14b16776ca750c6cdbbe..1447f48511e31093455c2caeb8cfea765814ef27 100644 (file)
--- 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 7bec8eea7090f33ca319cb15f9c6e435e4bca8b5..85a19de85edd162fc7428801adc663929504d7bd 100644 (file)
--- 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