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

* error.c (scm_everr, scm_init_error): write now writes correct

Browse source 
number of characters.  Define %%system-error with SCM_SYMBOL.
This commit is contained in:
Mikael Djurfeldt 1996-08-22 15:37:57 +00:00
parent 5391bb635c
commit 043045f853
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/error.c
View file

@ -172,7 +172,7 @@ scm_everr (exp, env, arg, pos, s_subr)
/* No return, but just in case: */ /* No return, but just in case: */
write (2, "unhandled system error", sizeof ("unhandled system error")); write (2, "unhandled system error", sizeof ("unhandled system error") - 1);
exit (1); exit (1);
} }
@ -201,8 +201,7 @@ void
scm_init_error () scm_init_error ()
#endif #endif
{ {
system_error_sym = SCM_CAR (scm_intern0 ("%%system-error")); SCM_SYMBOL (system_error_sym, "%%system-error");
scm_permanent_object (system_error_sym);
#include "error.x" #include "error.x"
} }