Updating the examples since lpeglabel now returns an error position instead of a string and p^lab is syntatic sugar

1 files changed, 3 insertions, 3 deletions

diff --git a/examples/listId2.lua b/examples/listId2.lua
index 3ee89da..592dae3 100644
--- a/examples/listId2.lua
+++ b/examples/listId2.lua
@@ -25,11 +25,11 @@ local g = m.P{
 
 
 function mymatch (g, s)
-  local r, e, sfail = g:match(s)
+  local r, e, pos = g:match(s)
   if not r then
-    local line, col = re.calcline(s, #s - #sfail)
+    local line, col = re.calcline(s, pos)
     local msg = "Error at line " .. line .. " (col " .. col .. "): "
-    return r, msg .. terror[e] .. " before '" .. sfail .. "'"
+    return r, msg .. terror[e] .. " before '" .. s:sub(pos) .. "'"
   end
   return r
 end