* match.c (h_eol): Fix broken horizontal @(eol).

It should be returning next_spec_k, rather
than bindings, which indicate a complete match.

2 files changed, 7 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 84c6b2fe..f7573c2b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2014-07-15  Kaz Kylheku  <kaz@kylheku.com>
 
+	* match.c (h_eol): Fix broken horizontal @(eol).
+	It should be returning next_spec_k, rather
+	than bindings, which indicate a complete match.
+
+2014-07-15  Kaz Kylheku  <kaz@kylheku.com>
+
 	* tests/001/query-1.txr: Remove bogus public domain header.
 
 	* tests/001/query-2.txr: Likewise.
diff --git a/match.c b/match.c
index 7a3e06c7..83aac757 100644
--- a/match.c
+++ b/match.c
@@ -1124,7 +1124,7 @@ static val h_eol(match_line_ctx *c)
 
   if (length_str_le(c->dataline, c->pos)) {
     LOG_MATCH("eol", c->pos);
-    return cons(c->bindings, plus(c->pos, c->base));
+    return next_spec_k;
   }
   LOG_MISMATCH("eol");
   return nil;