From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 20 Feb 1995 20:48:53 +0000 (+0000)
Subject: ILLEGAL calls NO-LONGER-LEGAL if the form is a KMP form.
X-Git-Tag: 20090517-FFI~6628
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cdafd9c37405034fe6834b2d3158b90aaabbcd95;p=mit-scheme.git

ILLEGAL calls NO-LONGER-LEGAL if the form is a KMP form.
Most phases can now call ILLEGAL instead of choosing between the two.
---

diff --git a/v8/src/compiler/midend/midend.scm b/v8/src/compiler/midend/midend.scm
index 07909c390..a21a88668 100644
--- a/v8/src/compiler/midend/midend.scm
+++ b/v8/src/compiler/midend/midend.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: midend.scm,v 1.8 1995/01/19 23:43:16 adams Exp $
+$Id: midend.scm,v 1.9 1995/02/20 20:48:53 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -406,7 +406,14 @@ Example:
   (apply warn complaint *current-phase* reasons))
 
 (define (illegal form)
-  (internal-error "Illegal KMP form" form))
+  (if (and (pair? form)
+	   (memq (car form)
+		 '(QUOTE   LOOKUP  LAMBDA  LET     DECLARE
+		   CALL    BEGIN   IF      LETREC  SET!
+		   UNASSIGNED? OR  DELAY   ACCESS  DEFINE
+		   IN-PACKAGE THE-ENVIRONMENT)))
+      (no-longer-legal form)
+      (internal-error "Illegal KMP form" form)))
 
 (define (no-longer-legal form)
   (internal-error "Unexpected KMP form -- should have been expanded"