Fix the call to print-exact-decimal-point-number

'static' was missing, causing procedure lookup done every time.
shirok · Dec 22, 2024 · e2f5c57 · e2f5c57
1 parent 1465e07
commit e2f5c57
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/number.c b/src/number.c
@@ -4194,7 +4194,7 @@ print_number(ScmPort *port, ScmObj obj, u_long flags, ScmNumberFormat *fmt)
         return Scm_DStringSize(&ds);
     } else if (SCM_RATNUMP(obj)) {
         if (flags & SCM_NUMBER_FORMAT_EXACT_DECIMAL_POINT) {
-            ScmObj print_exact_decimal_point_number_proc = SCM_UNDEFINED;
+            static ScmObj print_exact_decimal_point_number_proc = SCM_UNDEFINED;
             SCM_BIND_PROC(print_exact_decimal_point_number_proc,
                           "print-exact-decimal-point-number",
                           gauche_numioutil_module());