diff options
Diffstat (limited to 'arith.c')
| -rw-r--r-- | arith.c | 18 |
1 files changed, 12 insertions, 6 deletions
@@ -2276,16 +2276,22 @@ void arith_init(void) mp_set_intptr(&INT_PTR_MAX_MP, INT_PTR_MAX); log2_init(); - reg_var(intern(lit("*flo-dig*"), user_package), num_fast(DBL_DIG)); - reg_var(intern(lit("*flo-max*"), user_package), flo(DBL_MAX)); - reg_var(intern(lit("*flo-min*"), user_package), flo(DBL_MIN)); - reg_var(intern(lit("*flo-epsilon*"), user_package), flo(DBL_EPSILON)); + reg_varl(intern(lit("*flo-dig*"), user_package), num_fast(DBL_DIG)); + reg_varl(intern(lit("*flo-max*"), user_package), flo(DBL_MAX)); + reg_varl(intern(lit("*flo-min*"), user_package), flo(DBL_MIN)); + reg_varl(intern(lit("*flo-epsilon*"), user_package), flo(DBL_EPSILON)); + reg_varl(intern(lit("flo-dig"), user_package), num_fast(DBL_DIG)); + reg_varl(intern(lit("flo-max"), user_package), flo(DBL_MAX)); + reg_varl(intern(lit("flo-min"), user_package), flo(DBL_MIN)); + reg_varl(intern(lit("flo-epsilon"), user_package), flo(DBL_EPSILON)); #ifndef M_PI #define M_PI 3.14159265358979323846 #endif - reg_var(intern(lit("*pi*"), user_package), flo(M_PI)); + reg_varl(intern(lit("*pi*"), user_package), flo(M_PI)); + reg_varl(intern(lit("%pi%"), user_package), flo(M_PI)); #ifndef M_E #define M_E 2.71828182845904523536 #endif - reg_var(intern(lit("*e*"), user_package), flo(M_E)); + reg_varl(intern(lit("*e*"), user_package), flo(M_E)); + reg_varl(intern(lit("%e%"), user_package), flo(M_E)); } |