From 5e525920845434a600749acd2d36dd2b01175295 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 9 Feb 2004 08:22:54 +0000
Subject: [PATCH] Bail out if inliner gets invoked on code that was already
 processed by FLAT-ENVIRONMENTS optimizer.

---
 scheme/opt/usage.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scheme/opt/usage.scm b/scheme/opt/usage.scm
index 397777f..49de9c2 100644
--- a/scheme/opt/usage.scm
+++ b/scheme/opt/usage.scm
@@ -189,6 +189,10 @@
 	     free
 	     usages)))
 
+(define-usage-analyzer 'flat-lambda #f
+  (lambda (node free usages)
+    (error "Inliner applied on flat lambda, please swap OPTIMIZE clauses")))
+
 ;--------------------
 ; Usage records record the number of times that a variable is referenced, set!,
 ; and called.