math: poly/rpoly diagnostic mixup.

* arith.c (poly, rpoly): fix: the poly function wrongly refers
to itself as rpoly and vice versa in diagnostics.

1 files changed, 2 insertions, 2 deletions

diff --git a/arith.c b/arith.c
index 1d00e8aa..44e466df 100644
--- a/arith.c
+++ b/arith.c
@@ -3949,7 +3949,7 @@ val digits(val n, val base)
 
 val poly(val x, val seq)
 {
-  val self = lit("rpoly");
+  val self = lit("poly");
   val acc = zero;
   seq_info_t si = seq_info(seq);
 
@@ -3988,7 +3988,7 @@ val poly(val x, val seq)
 
 val rpoly(val x, val seq)
 {
-  val self = lit("poly");
+  val self = lit("rpoly");
   val acc = zero;
   val pow = x;
   seq_info_t si = seq_info(seq);