* eval.c (op_modplace): Fix warning caught by gcc, but not g++.txr-55

* lib.c (replace_list): Fix code that is valid C++ but not C.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index e00f8d1f..881d2c0c 100644
--- a/lib.c
+++ b/lib.c
@@ -496,12 +496,12 @@ val replace_list(val list, val from, val to, val items)
   else if (from == t)
     from = nil;
   else if (lt(from, zero))
-    from = plus(from, len ? len : len = length(list));
+    from = plus(from, len ? len : (len = length(list)));
 
   if (to == t)
     to = nil;
   if (to && lt(to, zero))
-    to = plus(to, len ? len : len = length(list));
+    to = plus(to, len ? len : (len = length(list)));
 
   if (!to || (len && ge(to, len)))  {
     if (from && zerop(from)) {