From a9d5386b00fa744ff110fc17fa88f74d9e0880a3 Mon Sep 17 00:00:00 2001
From: Sebastian Ullrich <sebasti@nullri.ch>
Date: Fri, 28 Sep 2018 10:25:30 -0700
Subject: [PATCH] fix(library/vm/vm_string): fix `iterator.extract`

---
 src/library/vm/vm_string.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/library/vm/vm_string.cpp b/src/library/vm/vm_string.cpp
index d09e379e76..d03840aed4 100644
--- a/src/library/vm/vm_string.cpp
+++ b/src/library/vm/vm_string.cpp
@@ -488,7 +488,7 @@ vm_obj string_iterator_extract(vm_obj const & it1, vm_obj const & it2) {
     size_t pos2 = it_pos(it2);
     if (pos2 < pos1)
         return mk_vm_none();
-    return mk_vm_some(to_obj(s1.m_value.substr(pos1, pos2 - pos1), pos2 - pos1));
+    return mk_vm_some(to_obj(s1.m_value.substr(pos1, pos2 - pos1), it_remaining(it1) - it_remaining(it2)));
 }
 
 vm_obj string_hash(vm_obj const & s) {