adjust compute-size-increments test for interpreter

original commit: 7b64c7701664d11cd5ab6a777dc0993456513c82
This commit is contained in:
Matthew Flatt 2019-04-26 22:37:06 -05:00
parent a585c64390
commit c069bbf219

View File

@ -1147,8 +1147,9 @@
(compute-size-increments (list th)) (compute-size-increments (list th))
;; Main result: detected size of `bstr` in the thread ;; Main result: detected size of `bstr` in the thread
;; while it was part of the continuation ;; while it was part of the continuation
(and (> (car pre-sizes) N) (or (eq? (current-eval) interpret) ; interpreter continuaton is not precise enough
(< (car post-sizes) N)))))) (and (> (car pre-sizes) N)
(< (car post-sizes) N)))))))
) )
(mat compute-composition (mat compute-composition