From c069bbf2198a0f9883e3bba3334e25bcde1f171a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 26 Apr 2019 22:37:06 -0500
Subject: [PATCH] adjust `compute-size-increments` test for interpreter

original commit: 7b64c7701664d11cd5ab6a777dc0993456513c82
---
 mats/misc.ms | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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