Added hook for scode-eval.

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 87cdbe6b57e95ee4c95e7dab78a09bb1ef74dabe..8fce1b40ab94ea5d90420b03c5d66e47dfe2baa8 100644 (file)
--- a/v7/src/runtime/global.scm
+++ b/v7/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.21 1991/02/15 18:05:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/global.scm,v 14.22 1991/04/18 22:34:31 markf Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -37,10 +37,13 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 \f
+(define (initialize-package!)
+  (set! hook/scode-eval default/scode-eval))
+
 ;;;; Primitive Operators
 
 (define-primitives
-  scode-eval force error-procedure
+  force error-procedure
   set-interrupt-enables! enable-interrupts! with-interrupt-mask
   get-fixed-objects-vector with-history-disabled
   (primitive-procedure-arity 1)
@@ -101,6 +104,12 @@ MIT in each case. |#
   (extended-scode-eval (syntax expression system-global-syntax-table)
                       environment))
 
+(define hook/scode-eval)
+(define default/scode-eval (ucode-primitive scode-eval))
+
+(define (scode-eval scode environment)
+  (hook/scode-eval scode environment))
+
 (define-integrable (system-hunk3-cons type cxr0 cxr1 cxr2)
   (object-new-type type (hunk3-cons cxr0 cxr1 cxr2)))
 

diff --git a/v8/src/runtime/global.scm b/v8/src/runtime/global.scm
index c1eafc0ff446c07da636603403a08bc8654053bc..7df355b7c191ba597f6ddda28230d8f2d1d7647e 100644 (file)
--- a/v8/src/runtime/global.scm
+++ b/v8/src/runtime/global.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.21 1991/02/15 18:05:37 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/global.scm,v 14.22 1991/04/18 22:34:31 markf Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -37,10 +37,13 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 \f
+(define (initialize-package!)
+  (set! hook/scode-eval default/scode-eval))
+
 ;;;; Primitive Operators
 
 (define-primitives
-  scode-eval force error-procedure
+  force error-procedure
   set-interrupt-enables! enable-interrupts! with-interrupt-mask
   get-fixed-objects-vector with-history-disabled
   (primitive-procedure-arity 1)
@@ -101,6 +104,12 @@ MIT in each case. |#
   (extended-scode-eval (syntax expression system-global-syntax-table)
                       environment))
 
+(define hook/scode-eval)
+(define default/scode-eval (ucode-primitive scode-eval))
+
+(define (scode-eval scode environment)
+  (hook/scode-eval scode environment))
+
 (define-integrable (system-hunk3-cons type cxr0 cxr1 cxr2)
   (object-new-type type (hunk3-cons cxr0 cxr1 cxr2)))