From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 14 Jan 1995 00:30:27 +0000 (+0000)
Subject: Exported *pp-arity-dispatched-procedure-style*.
X-Git-Tag: 20090517-FFI~6741
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2778f6a9ea41aa8918887c2a7b2a2a38491c0dbb;p=mit-scheme.git

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

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 73bf9af92..314b47439 100644
--- 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 73bf9af92..314b47439 100644
--- 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?*