diff --git a/src/library/compiler/ir_interpreter.cpp b/src/library/compiler/ir_interpreter.cpp index 4ba0ee5025..86e1c31c91 100644 --- a/src/library/compiler/ir_interpreter.cpp +++ b/src/library/compiler/ir_interpreter.cpp @@ -101,7 +101,7 @@ var_id const & expr_is_tagged_ptr_obj(expr const & e) { lean_assert(expr_tag(e) typedef object_ref param; var_id const & param_var(param const & p) { return cnstr_get_ref_t(p, 0); } -bool param_borrow(param const & p) { return cnstr_get_uint8(p.raw(), sizeof(void *)); } +bool param_borrow(param const & p) { return cnstr_get_uint8(p.raw(), 2*sizeof(void *)); } type param_type(param const & p) { return cnstr_get_type(p, 1); } typedef object_ref alt_core;