mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

* error.c (scm_wta): Pass SCM_EOL to scm_misc_error as the list of

Browse source 
arguments for formatting the error message, not SCM_BOOL_F.  I
think this is left over from the (eq? '() #f) days.
This commit is contained in:
Jim Blandy 1997-07-10 05:25:44 +00:00
parent da5b3eb149
commit b1edcd363e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/error.c
View file

@ -249,7 +249,7 @@ scm_wta (arg, pos, s_subr)
if ((~0x1fL) & (long) pos) if ((~0x1fL) & (long) pos)
{ {
/* error string supplied. */ /* error string supplied. */
scm_misc_error (s_subr, pos, SCM_BOOL_F); scm_misc_error (s_subr, pos, SCM_EOL);
} }
else else
{ {
@ -278,7 +278,7 @@ scm_wta (arg, pos, s_subr)
scm_memory_error (s_subr); scm_memory_error (s_subr);
default: default:
/* this shouldn't happen. */ /* this shouldn't happen. */
scm_misc_error (s_subr, "Unknown error", SCM_BOOL_F); scm_misc_error (s_subr, "Unknown error", SCM_EOL);
} }
} }
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;