Add new procedures:

	condition-type/internal?
	condition-type/reporter
	condition/report-string
	condition/reporter
	condition/write-report

Change name of condition-type "dependencies" to "generalizations".

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index daaca74518f50e34a1897a87c6a208ce7a2c04fa..c6f560b9b98d9425eb1faa7d6376caf149fb9e2b 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.3 1988/06/16 06:37:44 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.4 1988/06/21 05:50:40 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -286,6 +286,7 @@ MIT in each case. |#
          continuation/first-subproblem
          microcode-return/code->type
          stack-frame->continuation
+         stack-frame-type/address
          stack-frame-type/code
          stack-frame-type/properties
          stack-frame-type/subproblem?
@@ -420,19 +421,22 @@ MIT in each case. |#
   (export ()
          bind-condition-handler
          cmdl-message/error
-         condition-type/dependencies
+         condition-type/generalizations
          condition-type/error?
-         condition-type/message
+         condition-type/internal?
          condition-type/properties
+         condition-type/reporter
          condition-type:error
          condition-type?
          condition/continuation
-         condition/dependencies
+         condition/generalizations
          condition/error?
          condition/irritants
-         condition/message
          condition/properties
+         condition/report-string
+         condition/reporter
          condition/type
+         condition/write-report
          condition?
          error-condition
          error-continuation

diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 02ca59d6d443c4be29ca6c07d4df0c3087c2b358..af91b43e39d2e0c555af95d1cda9415807865060 100644 (file)
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.3 1988/06/16 06:37:44 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.4 1988/06/21 05:50:40 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -286,6 +286,7 @@ MIT in each case. |#
          continuation/first-subproblem
          microcode-return/code->type
          stack-frame->continuation
+         stack-frame-type/address
          stack-frame-type/code
          stack-frame-type/properties
          stack-frame-type/subproblem?
@@ -420,19 +421,22 @@ MIT in each case. |#
   (export ()
          bind-condition-handler
          cmdl-message/error
-         condition-type/dependencies
+         condition-type/generalizations
          condition-type/error?
-         condition-type/message
+         condition-type/internal?
          condition-type/properties
+         condition-type/reporter
          condition-type:error
          condition-type?
          condition/continuation
-         condition/dependencies
+         condition/generalizations
          condition/error?
          condition/irritants
-         condition/message
          condition/properties
+         condition/report-string
+         condition/reporter
          condition/type
+         condition/write-report
          condition?
          error-condition
          error-continuation