Bug #35718. Workaround good enough to get some code working.

* eval.c (cons_find): New function.
(expand_op): Use cons_find rather than tree_find to look for
rest_gensym.

* regex.c (regsub): Rearranged arguments so that the string
is last. This is better for partial evaluaton via the op
operator.

* regex.h (regsub): Updated declaration.

1 files changed, 1 insertions, 1 deletions

diff --git a/regex.c b/regex.c
index 6c2a914d..60f5cd2d 100644
--- a/regex.c
+++ b/regex.c
@@ -1724,7 +1724,7 @@ val match_regex(val str, val reg, val pos)
   return nil;
 }
 
-val regsub(val str, val regex, val repl)
+val regsub(val regex, val repl, val str)
 {
   list_collect_decl (out, ptail);
   val pos = zero;