More uniform naming to keep related modules together:

coblprof -> pcscobl
iproprof -> pcsiproc

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
index 53e411fabaa0ca943d6622991ff9659c4c8cf7d4..6d1c54445c245aca7722b5f91f58d94ca9695c98 100644 (file)
--- a/v7/src/runtime/ed-ffi.scm
+++ b/v7/src/runtime/ed-ffi.scm
@@ -1,6 +1,6 @@
 #| -*- Scheme -*-
 
-$Id: ed-ffi.scm,v 1.6 1993/08/30 19:50:01 ziggy Exp $
+$Id: ed-ffi.scm,v 1.7 1993/08/30 23:01:05 ziggy Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -54,8 +54,6 @@ MIT in each case. |#
                syntax-table/system-internal)
     ("chrset"  (runtime character-set)
                syntax-table/system-internal)
-    ("coblprof" (runtime pc-sample  code-block-profiling)
-               syntax-table/system-internal)
     ("codwlk"  (runtime scode-walker)
                syntax-table/system-internal)
     ("conpar"  (runtime continuation-parser)
@@ -127,8 +125,6 @@ MIT in each case. |#
                syntax-table/system-internal)
     ("io"      (runtime primitive-io)
                syntax-table/system-internal)
-    ("iproprof" (runtime pc-sample interp-proc-profiling)
-               syntax-table/system-internal)
     ("krypt"   (runtime krypt)
                syntax-table/system-internal)
     ("lambda"  (runtime lambda-abstraction)
@@ -161,8 +157,12 @@ MIT in each case. |#
                syntax-table/system-internal)
     ("pcsample" (runtime pc-sample)
                syntax-table/system-internal)
+    ("pcscobl"  (runtime pc-sample  code-blocks)
+               syntax-table/system-internal)
     ("pcsdisp"  (runtime pc-sample display)
                syntax-table/system-internal)
+    ("pcsiproc" (runtime pc-sample interp-procs)
+               syntax-table/system-internal)
     ("poplat"  (runtime population)
                syntax-table/system-internal)
     ("port"    (runtime port)

diff --git a/v7/src/runtime/option.scm b/v7/src/runtime/option.scm
index 7aae215b83550c027f332ee2383f11845180fd61..e3a72aa777c6716e1e638a0a14c36c6e18c2a8ce 100644 (file)
--- a/v7/src/runtime/option.scm
+++ b/v7/src/runtime/option.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: option.scm,v 14.20 1993/08/30 22:40:01 ziggy Exp $
+$Id: option.scm,v 14.21 1993/08/30 23:03:28 ziggy Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -76,12 +76,12 @@ MIT in each case. |#
     (HASH-TABLE ((RUNTIME HASH-TABLE) (INITIALIZE-PACKAGE!) "hashtb"))
     (KRYPT ((RUNTIME KRYPT) #F "krypt"))
     (SUBPROCESS ((RUNTIME SUBPROCESS) (INITIALIZE-PACKAGE!) "process"))
-    (PC-SAMPLE ((RUNTIME PC-SAMPLE) (INITIALIZE-PACKAGE!) "pcsample" "binutl")
-              ((RUNTIME PC-SAMPLE INTERP-PROC-PROFILING) (INITIALIZE-PACKAGE!)
-                                                         "iproprof")
-              ((RUNTIME PC-SAMPLE  CODE-BLOCK-PROFILING) (INITIALIZE-PACKAGE!)
-                                                         "coblprof")
-              ((RUNTIME PC-SAMPLE DISPLAY) (INITIALIZE-PACKAGE!) "pcsdisp")
+    (PC-SAMPLE ((RUNTIME PC-SAMPLE) (INITIALIZE-PACKAGE!) "binutl" "pcsample")
+              ((RUNTIME PC-SAMPLE INTERP-PROCS) (INITIALIZE-PACKAGE!)
+                                                                  "pcsiproc")
+              ((RUNTIME PC-SAMPLE  CODE-BLOCKS) (INITIALIZE-PACKAGE!) 
+                                                                  "pcscobl")
+              ((RUNTIME PC-SAMPLE DISPLAY) (INITIALIZE-PACKAGE!)  "pcsdisp")
               )
     ))