Exported *pp-arity-dispatched-procedure-style*.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 73bf9af9201f3dc0c4caa065800be67911dac6cf..314b47439e63d6918ee263b14984c09ac4374a30 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.241 1995/01/06 20:28:31 cph Exp $
+$Id: runtime.pkg,v 14.242 1995/01/14 00:30:27 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -472,6 +472,7 @@ MIT in each case. |#
          apply-hook-extra
          apply-hook-procedure
          apply-hook?
+         arity-dispatched-procedure?
          compiled-closure->entry
          compiled-closure/ref
          compiled-closure/set!
@@ -483,6 +484,7 @@ MIT in each case. |#
          entity?
          implemented-primitive-procedure?
          make-apply-hook
+         make-arity-dispatched-procedure
          make-entity
          make-primitive-procedure
          primitive-procedure-name
@@ -1598,6 +1600,7 @@ MIT in each case. |#
   (files "pp")
   (parent ())
   (export ()
+         *pp-arity-dispatched-procedure-style*
          *pp-auto-highlighter*
          *pp-avoid-circularity?*
          *pp-default-as-code?*

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 73bf9af9201f3dc0c4caa065800be67911dac6cf..314b47439e63d6918ee263b14984c09ac4374a30 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.241 1995/01/06 20:28:31 cph Exp $
+$Id: runtime.pkg,v 14.242 1995/01/14 00:30:27 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -472,6 +472,7 @@ MIT in each case. |#
          apply-hook-extra
          apply-hook-procedure
          apply-hook?
+         arity-dispatched-procedure?
          compiled-closure->entry
          compiled-closure/ref
          compiled-closure/set!
@@ -483,6 +484,7 @@ MIT in each case. |#
          entity?
          implemented-primitive-procedure?
          make-apply-hook
+         make-arity-dispatched-procedure
          make-entity
          make-primitive-procedure
          primitive-procedure-name
@@ -1598,6 +1600,7 @@ MIT in each case. |#
   (files "pp")
   (parent ())
   (export ()
+         *pp-arity-dispatched-procedure-style*
          *pp-auto-highlighter*
          *pp-avoid-circularity?*
          *pp-default-as-code?*