From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Thu, 18 Apr 1991 22:34:31 +0000 (+0000)
Subject: Added hook for scode-eval.
X-Git-Tag: 20090517-FFI~10745
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9cebb334d9fc346b475688c3f2d8216461f74de6;p=mit-scheme.git

Added hook for scode-eval.
---

diff --git a/v7/src/runtime/global.scm b/v7/src/runtime/global.scm
index 87cdbe6b5..8fce1b40a 100644
--- 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))
 
+(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 c1eafc0ff..7df355b7c 100644
--- 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))
 
+(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)))