From b0e5fc267c2e4c8b2466c7e27768bdf93ee1632d Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Fri, 17 Nov 2017 19:23:08 +0100
Subject: [PATCH] nupa_substitute(), cleanup

---
 src/frontend/numparam/xpressn.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/frontend/numparam/xpressn.c b/src/frontend/numparam/xpressn.c
index 0e79ae543..ea0e51929 100644
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@@ -1230,7 +1230,7 @@ nupa_substitute(dico_t *dico, const char *s, char * const r)
             }
 
             s = kptr + 1;
-            r_ = r_ + (int) (insertnumber(dico, r_, &qstr) - r_);
+            r_ = insertnumber(dico, r_, &qstr);
 
         } else if (c == Intro) {
             /* skip "&&" which may occur in B source */
@@ -1290,7 +1290,7 @@ nupa_substitute(dico_t *dico, const char *s, char * const r)
                 s = kptr;
             }
 
-            r_ = r_ + (int) (insertnumber(dico, r_, &qstr) - r_);
+            r_ = insertnumber(dico, r_, &qstr);
         }
     }