~ chicken-core (chicken-5) 13715e5e2013e955d88c679734ecaf61a0f89e34


commit 13715e5e2013e955d88c679734ecaf61a0f89e34
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jun 27 10:48:17 2019 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jun 27 10:48:17 2019 +0200

    Typo in the unboxed rewriting rule for
    C_u_i_flonum_inifnitep.

diff --git a/lfa2.scm b/lfa2.scm
index 5d739d9a..3226b2e6 100644
--- a/lfa2.scm
+++ b/lfa2.scm
@@ -208,7 +208,7 @@
     ("C_flonum_greater_or_equal_p" "C_ub_i_flonum_greater_or_equal_p" pred)
     ("C_flonum_less_or_equal_p" "C_ub_i_flonum_less_or_equal_p" pred)
     ("C_u_i_flonum_nanp" "C_ub_i_flonum_nanp" pred)
-    ("C_u_i_flonum_infinitep" "C_ub_i_flonum_infnitep" pred)
+    ("C_u_i_flonum_infinitep" "C_ub_i_flonum_infinitep" pred)
     ("C_u_i_flonum_finitepp" "C_ub_i_flonum_finitep" pred)
     ("C_a_i_flonum_sin" "C_sin" op)
     ("C_a_i_flonum_cos" "C_cos" op)
Trap