mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* eval.c: remove SCM_BIGDIG conditionals.

Browse source
This commit is contained in:
Rob Browning 2003-04-04 21:48:08 +00:00
parent cb32fdbf9b
commit 9aa82b3994
1 changed files with 1 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/eval.c
View file

@ -232,7 +232,7 @@ scm_ilookup (SCM iloc, SCM env)
arbitrary amount of time or even deadlock. But with the current arbitrary amount of time or even deadlock. But with the current
solution a lot of unnecessary work is potentially done. */ solution a lot of unnecessary work is potentially done. */
/* SCM_LOOKUPCAR1 is was SCM_LOOKUPCAR used to be but is allowed to /* SCM_LOOKUPCAR1 is what SCM_LOOKUPCAR used to be but is allowed to
return NULL to indicate a failed lookup due to some race conditions return NULL to indicate a failed lookup due to some race conditions
between threads. This only happens when VLOC is the first cell of between threads. This only happens when VLOC is the first cell of
a special form that will eventually be memoized (like `let', etc.) a special form that will eventually be memoized (like `let', etc.)
@ -2917,12 +2917,10 @@ evapply: /* inputs: x, proc */
{ {
RETURN (scm_make_real (SCM_DSUBRF (proc) (SCM_REAL_VALUE (arg1)))); RETURN (scm_make_real (SCM_DSUBRF (proc) (SCM_REAL_VALUE (arg1))));
} }
#ifdef SCM_BIGDIG
else if (SCM_BIGP (arg1)) else if (SCM_BIGP (arg1))
{ {
RETURN (scm_make_real (SCM_DSUBRF (proc) (scm_i_big2dbl (arg1)))); RETURN (scm_make_real (SCM_DSUBRF (proc) (scm_i_big2dbl (arg1))));
} }
#endif
SCM_WTA_DISPATCH_1 (*SCM_SUBR_GENERIC (proc), arg1, SCM_WTA_DISPATCH_1 (*SCM_SUBR_GENERIC (proc), arg1,
SCM_ARG1, SCM_SYMBOL_CHARS (SCM_SNAME (proc))); SCM_ARG1, SCM_SYMBOL_CHARS (SCM_SNAME (proc)));
} }
@ -3580,10 +3578,8 @@ tail:
{ {
RETURN (scm_make_real (SCM_DSUBRF (proc) (SCM_REAL_VALUE (arg1)))); RETURN (scm_make_real (SCM_DSUBRF (proc) (SCM_REAL_VALUE (arg1))));
} }
#ifdef SCM_BIGDIG
else if (SCM_BIGP (arg1)) else if (SCM_BIGP (arg1))
RETURN (scm_make_real (SCM_DSUBRF (proc) (scm_i_big2dbl (arg1)))); RETURN (scm_make_real (SCM_DSUBRF (proc) (scm_i_big2dbl (arg1))));
#endif
SCM_WTA_DISPATCH_1 (*SCM_SUBR_GENERIC (proc), arg1, SCM_WTA_DISPATCH_1 (*SCM_SUBR_GENERIC (proc), arg1,
SCM_ARG1, SCM_SYMBOL_CHARS (SCM_SNAME (proc))); SCM_ARG1, SCM_SYMBOL_CHARS (SCM_SNAME (proc)));
} }
@ -3907,10 +3903,8 @@ call_dsubr_1 (SCM proc, SCM arg1)
{ {
RETURN (scm_make_real (SCM_DSUBRF (proc) (SCM_REAL_VALUE (arg1)))); RETURN (scm_make_real (SCM_DSUBRF (proc) (SCM_REAL_VALUE (arg1))));
} }
#ifdef SCM_BIGDIG
else if (SCM_BIGP (arg1)) else if (SCM_BIGP (arg1))
RETURN (scm_make_real (SCM_DSUBRF (proc) (scm_i_big2dbl (arg1)))); RETURN (scm_make_real (SCM_DSUBRF (proc) (scm_i_big2dbl (arg1))));
#endif
SCM_WTA_DISPATCH_1 (*SCM_SUBR_GENERIC (proc), arg1, SCM_WTA_DISPATCH_1 (*SCM_SUBR_GENERIC (proc), arg1,
SCM_ARG1, SCM_SYMBOL_CHARS (SCM_SNAME (proc))); SCM_ARG1, SCM_SYMBOL_CHARS (SCM_SNAME (proc)));
} }