From: ssmith <ssmith>
Date: Wed, 11 Jan 1995 22:14:41 +0000 (+0000)
Subject: Added internal-closure-code-word.
X-Git-Tag: 20090517-FFI~6760
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ff743ae013c115566ca158d65547268121b55628;p=mit-scheme.git

Added internal-closure-code-word.
---

diff --git a/v8/src/compiler/machines/i386/rules3.scm b/v8/src/compiler/machines/i386/rules3.scm
index ea125e13c..7aa8e4e17 100644
--- a/v8/src/compiler/machines/i386/rules3.scm
+++ b/v8/src/compiler/machines/i386/rules3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rules3.scm,v 1.6 1995/01/11 22:09:38 ssmith Exp $
+$Id: rules3.scm,v 1.7 1995/01/11 22:14:41 ssmith Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -359,6 +359,11 @@ MIT in each case. |#
 (define internal-continuation-code-word
   (make-code-word #xff #xfc))
 
+;; #xff #xfb taken up by return-to-interpreter and reflect-to-interface
+
+(define internal-closure-code-word
+  (make-code-word #xff #xfa))
+
 (define (frame-size->code-word offset default)
   (cond ((not offset)
 	 default)