Bail out if inliner gets invoked on code that was already processed by

FLAT-ENVIRONMENTS optimizer.
2004-02-09 08:22:54 +00:00 · 2004-02-09 08:22:54 +00:00 · 5e52592084
parent 47b9d6028e
commit 5e52592084
1 changed files with 4 additions and 0 deletions
--- 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.