From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 Jul 1987 21:01:25 +0000 (+0000)
Subject: Add site-specific hooks to expression and return dispatches.
X-Git-Tag: 20090517-FFI~13278
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3fb6d357b1aea15bf2efe6fe1ee78922117e417c;p=mit-scheme.git

Add site-specific hooks to expression and return dispatches.
---

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 23d6042a9..d8c921b6d 100644
--- a/v7/src/microcode/interp.c
+++ b/v7/src/microcode/interp.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.29 1987/06/22 19:59:38 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/interp.c,v 9.30 1987/07/07 21:01:25 cph Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -741,6 +741,8 @@ lookup_end_restart:
       Eval_Error(temp);
     }
 
+    SITE_EXPRESSION_DISPATCH_HOOK()
+
     case TC_RETURN_CODE:
     default: Eval_Error(ERR_UNDEFINED_USER_TYPE);
   };
@@ -1854,6 +1856,8 @@ return_from_compiled_code:
       Export_Registers();
       Microcode_Termination(TERM_UNIMPLEMENTED_CONTINUATION);
 
+    SITE_RETURN_DISPATCH_HOOK()
+
     default:
       Export_Registers();
       Microcode_Termination(TERM_NON_EXISTENT_CONTINUATION);
diff --git a/v8/src/microcode/interp.c b/v8/src/microcode/interp.c
index 355ef58fe..834f2116b 100644
--- a/v8/src/microcode/interp.c
+++ b/v8/src/microcode/interp.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.29 1987/06/22 19:59:38 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/interp.c,v 9.30 1987/07/07 21:01:25 cph Exp $
  *
  * This file contains the heart of the Scheme Scode
  * interpreter
@@ -741,6 +741,8 @@ lookup_end_restart:
       Eval_Error(temp);
     }
 
+    SITE_EXPRESSION_DISPATCH_HOOK()
+
     case TC_RETURN_CODE:
     default: Eval_Error(ERR_UNDEFINED_USER_TYPE);
   };
@@ -1854,6 +1856,8 @@ return_from_compiled_code:
       Export_Registers();
       Microcode_Termination(TERM_UNIMPLEMENTED_CONTINUATION);
 
+    SITE_RETURN_DISPATCH_HOOK()
+
     default:
       Export_Registers();
       Microcode_Termination(TERM_NON_EXISTENT_CONTINUATION);