Add site-specific hooks to expression and return dispatches.

diff --git a/v7/src/microcode/interp.c b/v7/src/microcode/interp.c
index 23d6042a9eabefd52edf52979c67055feda8c607..d8c921b6d41e03b986b593c1b0230721cfd03b15 100644 (file)
--- 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 355ef58fea2640db9c098e67fa0a9131ca78866e..834f2116be4ad47b9c0b561a87bad83dc28f9dca 100644 (file)
--- 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);