From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 8 Aug 1995 22:58:33 +0000 (+0000)
Subject: Name change.
X-Git-Tag: 20090517-FFI~6048
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=52f91612cb28a530116b09693a894da05b64041e;p=mit-scheme.git

Name change.
---

diff --git a/v7/src/pcsample/pcsample.c b/v7/src/pcsample/pcsample.c
index bcd3c5a07..e100eaf5c 100644
--- a/v7/src/pcsample/pcsample.c
+++ b/v7/src/pcsample/pcsample.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pcsample.c,v 1.2 1995/08/08 22:36:48 adams Exp $
+$Id: pcsample.c,v 1.3 1995/08/08 22:58:17 adams Exp $
 
 Copyright (c) 1990-1995 Massachusetts Institute of Technology
 
@@ -1462,7 +1462,7 @@ the previous value.")
     }
 }
 
-DEFINE_PRIMITIVE ("%PC-SAMPLE/GET-MAX-ZONE",
+DEFINE_PRIMITIVE ("%PC-SAMPLE/MAX-ZONE",
 		  Prim_pc_sample_get_max_zone, 0, 0, 0)
 {
     PRIMITIVE_HEADER(0);
diff --git a/v7/src/pcsample/pcsdld.c b/v7/src/pcsample/pcsdld.c
index 2c08e563d..8bd7673ad 100644
--- a/v7/src/pcsample/pcsdld.c
+++ b/v7/src/pcsample/pcsdld.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: pcsdld.c,v 1.2 1995/08/08 22:37:15 adams Exp $
+$Id: pcsdld.c,v 1.3 1995/08/08 22:58:33 adams Exp $
 
 Copyright (c) 1990-1993 Massachusetts Institute of Technology
 
@@ -904,7 +904,7 @@ DEFUN_VOID        (initialize_pcsample_primitives)
 Set current pc-sampling zone to INDEX (a small exact integer), returning \
 the previous value.");
 
-  declare_primitive ("%PC-SAMPLE/GET-MAX-ZONE",
+  declare_primitive ("%PC-SAMPLE/MAX-ZONE",
 		     Prim_pc_sample_get_max_zone, 0, 0, 0);
 
   declare_primitive ("%PC-SAMPLE/CLEAR-ZONES!",