From 2cc166bafadd85ca85680997072c8380d039f8c9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 19 Nov 2011 20:43:13 -0800
Subject: Bug #34866

* match.c (h_skip): Bugfix. Return the length of the line if
the skip is to the end of line, not the value t.

* txr.1: Clarify that @var@(skip)text is useless.
---
 match.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'match.c')

diff --git a/match.c b/match.c
index bb3da027..3df2656c 100644
--- a/match.c
+++ b/match.c
@@ -621,7 +621,7 @@ static val h_skip(match_line_ctx c, match_line_ctx *cout)
   if (!rest(c.specline)) {
     debuglf(elem, 
             lit("skip to end of line ~a:~a"), c.file, c.data_lineno, nao);
-    return cons(c.bindings, t);
+    return cons(c.bindings, length_str(c.dataline));
   }
 
   {
-- 
cgit v1.2.3