Don't assume self-inline when in doubt.

This avoids cases where a non-recursive function would be considered
to be unrolled, which makes no sense.
This commit is contained in:
Vincent St-Amour 2012-04-09 16:08:03 -04:00
parent deaa8f61be
commit 284d772a95

View File

@ -133,8 +133,7 @@
(and (equal? path where-path)
(= col where-col)
(= line where-line))]
[(hunoz #f) #t] ; we assume it is, to be conservative
[(hunoz hukairz) #f])]))
[(hunoz hukairz) #f])])) ; we assume it is not, to be conservative
(define (unrolling? l) (and (success? l) (self-inline? l)))