* lib.c (lazy_sub_str): Bugfix: "from" was mistakenly used

in the adjustment of the "to" value.

* match.c (search_form): Use predefined constants for -1 and 1
instead of calling num.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.c b/match.c
index 0800ebc1..a82f47da 100644
--- a/match.c
+++ b/match.c
@@ -457,7 +457,7 @@ static val search_form(match_line_ctx *c, val needle_form, val from_end)
   } else {
     val spec = cons(needle_form, nil);
     val pos = from_end ? length_str(c->dataline) : c->pos;
-    val step = from_end ? num(-1) : num(1);
+    val step = from_end ? negone : one;
 
     rlcp(spec, needle_form);