From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sun, 5 Jul 1992 13:31:40 +0000 (+0000)
Subject: Flush INST.
X-Git-Tag: 20090517-FFI~9240
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=94b952fd157c5f8a486dc9f52e895b44f7d43089;p=mit-scheme.git

Flush INST.
---

diff --git a/v7/src/compiler/base/macros.scm b/v7/src/compiler/base/macros.scm
index 1a36be969..20178be5b 100644
--- a/v7/src/compiler/base/macros.scm
+++ b/v7/src/compiler/base/macros.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/macros.scm,v 4.10 1990/01/18 22:42:49 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/macros.scm,v 4.11 1992/07/05 13:31:40 jinx Exp $
 
-Copyright (c) 1988, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -33,6 +33,7 @@ promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
 ;;;; Compiler Macros
+;;; package: (compiler macros)
 
 (declare (usual-integrations))
 
@@ -55,7 +56,6 @@ MIT in each case. |#
 	      (DEFINE-VECTOR-SLOTS ,transform/define-vector-slots)
 	      (DESCRIPTOR-LIST ,transform/descriptor-list)
 	      (ENUMERATION-CASE ,transform/enumeration-case)
-	      (INST ,transform/inst)
 	      (INST-EA ,transform/inst-ea)
 	      (LAP ,transform/lap)
 	      (MAKE-LVALUE ,transform/make-lvalue)
@@ -269,10 +269,6 @@ MIT in each case. |#
   (macro some-instructions
     (list 'QUASIQUOTE some-instructions)))
 
-(define transform/inst
-  (macro (the-instruction)
-    (list 'QUASIQUOTE the-instruction)))
-
 (define transform/inst-ea
   (macro (ea)
     (list 'QUASIQUOTE ea)))