From cc9f3d0ed92cc368e9b0a1c79b7e31b482cac940 Mon Sep 17 00:00:00 2001
From: Dmitry Boulytchev <dboulytchev@gmail.com>
Date: Tue, 25 Aug 2020 23:21:39 +0300
Subject: [PATCH] Fixed ugly bug in Matcher

---
 src/version.ml      | 2 +-
 stdlib/Matcher.lama | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/version.ml b/src/version.ml
index ae3c83f10..9c3ea4e2c 100644
--- a/src/version.ml
+++ b/src/version.ml
@@ -1 +1 @@
-let version = "Version 1.00, cbd715339, Sun Aug 23 00:18:53 2020 +0300"
+let version = "Version 1.00, ac853957a, Tue Aug 25 16:09:43 2020 +0300"
diff --git a/stdlib/Matcher.lama b/stdlib/Matcher.lama
index 4ce673f11..6e0bdf506 100644
--- a/stdlib/Matcher.lama
+++ b/stdlib/Matcher.lama
@@ -34,8 +34,8 @@ fun createMatcher (buf, pos, line, col) {
   -- Moves the position pointer on given number of characters.
   fun shift (n) {
     local i, l = line, c = col;
-
-    for i := pos, i < n, i := i+1 do
+    
+    for i := pos, i < pos+n, i := i+1 do
       case buf [i] of
         '\n' -> l := l + 1; c := 1
       | '\t' -> c := c + 8