numbers containing dot weren't properly string matched.

Author: BartJongejan

Changelog

@@ -1,3 +1,7 @@
+28 March 2025
+Fixed: Numbers containing dot (new since UFP objects) were not properly matched
+during string match.
+
 28 February 2025
 Bug fixed: a*b*c:(a*b*c ?)*?z&!z:1
 Before the fix, z would contain c and this expression would fail.

src/equal.c

@@ -1,5 +1,6 @@
 #include "equal.h"
 
+#include "copy.h"
 #include "flags.h"
 #include "nodedefs.h"
 #include "rational.h"
@@ -290,7 +291,7 @@ int scompare(char* s, char* cutoff, psk p
             psk n = NULL;
             sav = *cutoff;
             *cutoff = '\0';
-            n = build_up(n, s, NULL);
+            n = scopy((const char*)s);
             *cutoff = sav;
 
             if(RAT_RAT(n))

src/potu.c

@@ -20,9 +20,9 @@
 email: bartj@hum.ku.dk
 */
 
-#define DATUM "28 February 2025"
-#define VERSION "6.28.1"
-#define BUILD "313"
+#define DATUM "28 March 2025"
+#define VERSION "6.28.2"
+#define BUILD "314"
 /*
 COMPILATION
 -----------

valid.bra

@@ -8113,6 +8113,10 @@ string line 2\"
             & !z:1
           | Out$"Bug fixed 20250227"
           )
+          ( @("a 54. z":? ~<>"54." ?)
+          |   Out
+            $ "Error: number containing a dot is not properly string matched."
+          )
       &   out
         $ ( str
           $ ( "Done. "
@@ -8137,8 +8141,8 @@ r=
 & lst$(r,"valid.bra",APP)
 & put$(\n,"valid.bra",APP,BIN)
 & (   666:?aaa
-    & slow:?speed
     & fast:?speed
+    & slow:?speed
     & "Don't write error messages to screen"
     & err$0
     & "LL keeps the '0' alife if 'lost' is incremented"