From 2778f6a9ea41aa8918887c2a7b2a2a38491c0dbb Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 14 Jan 1995 00:30:27 +0000 Subject: [PATCH] Exported *pp-arity-dispatched-procedure-style*. --- v7/src/runtime/runtime.pkg | 5 ++++- v8/src/runtime/runtime.pkg | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) 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?* -- 2.25.1