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

FLAT-ENVIRONMENTS optimizer.
This commit is contained in:
mainzelm 2004-02-09 08:22:54 +00:00
parent 47b9d6028e
commit 5e52592084
1 changed files with 4 additions and 0 deletions

View File

@ -189,6 +189,10 @@
free free
usages))) 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!, ; Usage records record the number of times that a variable is referenced, set!,
; and called. ; and called.