VM: a little faster definition of contains_p()

diff --git a/vm/bump_allocator.hpp b/vm/bump_allocator.hpp
index dc3339f2eea60a8ee236fef0d1612a046b3c4aae..ba514c101a5b4af2cadad053b8eb554beca5219b 100644 (file)
--- a/vm/bump_allocator.hpp
+++ b/vm/bump_allocator.hpp
@@ -10,7 +10,9 @@ struct bump_allocator {
   bump_allocator(cell size, cell start)
       : here(start), start(start), end(start + size), size(size) {}
 
-  bool contains_p(object* obj) { return ((cell)obj - start) < size; }
+  bool contains_p(object* obj) {
+    return (cell)obj >= start && (cell)obj < end;
+  }
 
   object* allot(cell size) {
     cell h = here;